Tin học 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. 17/07/2021 By Ivy 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 Trả lời
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. Trả lời