Question

viết chương trình nhập vào một mảng n số nguyên. xuất ra số lớn nhất, số nhỏ nhất, tính trung bình số lớn nhất và số nhỏ nhất.

giúp mk với!!

Answer 1

uses crt;

var n,i,max,min:integer;

s:real;

a:array[1..100] of 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:=2 to n do

begin

if a[i]>max then max:=a[i]

if a[i]<min then min:=a[i];

end;

s:=(max+min)/2;

wrrite('so lon nhat la:',max);

write('so nho nhat la:',min);

write(' trung binh số lớn nhất và số nhỏ nhất là:',s);

readln;

end.

Answer 2

giúp m đó BFF