Tin học mng giúp mình viết chương trình max min và giá trị tb vs ạ 17/07/2021 By Aubrey mng giúp mình viết chương trình max min và giá trị tb vs ạ
Program Max_Min_Avg;Uses crt;Var a:array[1..20]of integer;i,n,max,min,sum:integer;BeginClrscr;Writeln(‘TIM MAX, MIN, AVERAGE CUA MOT DAY SO’);Write(‘Nhap so phan tu cua day n=’);readln(n); For i:=1 to n doBegin Write(‘Nhap a[‘,i,’]=’);readln(a[i]);End;Min:=a[1]; Max:=a[1]; Sum:=0; For i:=1 to n doBegin If (Min > a[i]) then Min:=a[i];If (Max < a[i]) then Max:=a[i];Sum :=sum+a[i];End;Writeln(‘Day so vua nhap la: ‘); Writeln(‘————————-‘); For i:=1 to n doWrite(a[i]:4); Writeln;Writeln(‘Gia tri lon nhat la:’,Max); Writeln(‘gia tri nho nhat la:’,Min); Writeln(‘gia tri trung binh la:’,Sum/n:6:2);Readln; End. Trả lời