Tin học viết chương trình nhập vào dãy n số nguyên, xuất dãy số vừa nhập ra màn hình.tìm min, max, tổng, trung bình cộng của các giá trị của dãy số đó 16/07/2021 By Iris viết chương trình nhập vào dãy n số nguyên, xuất dãy số vừa nhập ra màn hình.tìm min, max, tổng, trung bình cộng của các giá trị của dãy số đó
uses crt; var a: array[1..100] of integer; i,n,min,max,t: integer; tbc: real; begin clrscr; write (‘nhap n: ‘); readln (n): for i:=1 to n do begin write (‘nhap a[‘,i,’]: ‘); readln (a[i]); if a[i]>max then max:=a[i]; s:=s+a[i]; end; min:=a[1]; for i:=2 to n do if min>a[i] then min:=a[i]; tbc:=s/n; writeln (‘tong la: ‘,s): writeln (‘trung binh cong: ‘,tbc:1:2): writeln (‘GTLN (max): ‘,max): writeln (‘GTNN (min): ‘,min); readln; end. Trả lời
uses crt;var a:array[1..1000] of integer;i,n,min,max,t:integer;tbc:real;begin clrscr; write(‘Nhap n= ‘);readln(n); writeln(‘Nhap day so: ‘); for i:=1 to n do begin write(‘a[‘,i,’]= ‘);readln(a[i]); end; min:=a[1];max:=a[1];t:=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]; t:=t+a[i]; end; tbc:=t/n; writeln(‘So nho nhat: ‘,min); writeln(‘So lon nhat: ‘,max); writeln(‘Tong: ‘,t); writeln(‘Trung binh cong: ‘,tbc:0:3);readln;end. `X“i“n` `Ctlhn` `:D` Trả lời