viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số in ra màn hình số lớn nhất và số nhỏ nhất của dãy số
viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số in ra màn hình số lớn nhất và số nhỏ nhất của dãy số
By Hailey
uses crt;
var a:array[1..1000]of longint;
n,i,max,min:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘);readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln(‘So lon nhat cua day so: ‘,max);
write(‘So nho nhat cua day so: ‘,min);
readln
end.
program phuongt;
uses crt;
var A: array[1..500] of real;
max, min: real;
i, n: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
end;
max:=A[1];
min:=A[1];
for i:=1 to n do
begin
if max<A[i] then max:=A[i];
if min>A[i] then min:=A[i];
end;
writeln(‘So lon nhat: ‘, max:2:0);
write(‘So nho nhat: ‘, min:2:0);
readln
end.