Viết chương trình nhập vào một dãy số nguyên có n phần tử.In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách in ra màn hình
2 câu trả lời
Program JDI;
uses crt;
var a:array[1..100] of longint;
n,i,min,max,tong:longint;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
write('a[',i,']: ');readln(a[i]);
tong:=a[i]+tong;
end;
min:=a[1];
max:=a[1];
For i:=2 to n do
Begin
If min>a[i] then min:=a[i];
If max<a[i] then max:=a[i];
end;
writeln('Min la: ',min);
writeln('Max la: ',max);
write('Trung binh cong la: ',tong/n:4:2);
readln;
end.
program ct;
uses crt;
var i,n,Max,Min,s:integer;tbc:real;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang A[',i,']:=');readln(A[i]);
end;
Max:=A[1]; Min:=A[1];
for i:=2 to n do
begin
if Max<A[i] then Max:=A[i];
if Min>A[i] then Min:=A[i];
end;
writeln('gia tri lon nhat la',Max);
writeln('gia tri nho nhat la',Min);
s:=0;
for i:=1 to n do
begin
s:=s+A[i];
tbc:=s/n;
end;
writeln('trung binh cong la:',tbc:2:4);
readln
end.