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
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
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.