Viết chương trình nhập vào một dãy n số nguyên, tính và in ra màn hình số lớn nhất, số nhỏ nhất và số trung bình cộng của dãy.
Viết chương trình nhập vào một dãy n số nguyên, tính và in ra màn hình số lớn nhất, số nhỏ nhất và số trung bình cộng của dãy.
//danhle
var min,max,i,s,n:longint;a:array[1..1000]of int64;
begin
read(n);
s:=0;
for i := 1 to n do
begin
read(a[i]);
end;
max:=a[1];
min:=a[1];
for i := 1 to n do
begin
if a[i] < min then min:=a[i];
if a[i] > max then max:=a[i];
end;
for i := 1 to n do s:=s+i;
writeln(max,’ ‘,min);
writeln(‘trung binh cong cua day: ‘,s div n);
end.
Gửi bạn với max là số lớn nhất min là số nhỏ nhất nha.
p/s: xinh qua xin fb :3
@danhle
program Day;
uses crt;
var n,i,x,max,min,TB: integer;
Begin
clrscr;
write(‘Nhap so cac so nguyen: ‘); readln(n);
max:=1; min:=1;
for i:=1 to n do
begin
write(‘So thu ‘,i,’: ‘); readln(x);
if max<x then max:=x;
if min>x then min:=x;
TB:=TB+x;
end;
writeln(‘max = ‘,max,’ , min = ‘,min);
write(‘Trung binh cong day = ‘,TB/n:2:1);
readln
End.