Question

viết chương trình nhập vào dãy số nguyên gồm có n phần tử(n<=200).in ra màn hình phần tử có giá trị nhỏ nhất,phần tử có giá trị lớn nhất và giá trị trung bình của dãy số nguyên. giúp em với ạ, em sắp tới hạn nộp bài rồi ạ.

Answer 1

uses crt;
var i,n,t:integer;
a:array[1..200]of integer;
max,min:longint;
kq:real;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<=200) then
begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------gia-tri-nho-nhat------------------------}
min:=maxint;
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('gia tri nho nhat la: ',min);
{-------------------------gia-tri-lon-nhat------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('gia tri lon nhat la: ',max);
{------------------------trung-binh-cong-cua-day-so---------------}
t:=0;
for i:=1 to n do
t:=t+a[i];
kq:=t/n;
writeln('trung binh cong cua day so la: ',kq:4:2);
end
else writeln('vui long nhap lai');
readln;
end.