Bài 2:
uses crt;
Var a:array[1..100000] of longint;
i,n,max,min:longint;
s:real;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do begin
s:=s+a[i];
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]; end;
s:=s/n;
write('So lon nhat la: ',max,' So nho nhat la: ',min); writeln;
write('Gia tri trung binh la: ',s:0:1);
readln
end.
Mã:
Program tinh_tong_N_so_nhap_tu_ban_phim; Var n, i: integer; tong, so: integer; BEGIN writeln('Chuong trinh tinh tong N so nhap tu ban phim'); write('Nhap vao N= '); readln(N); tong: = 0; for i:=1 to N do begin write('Nhap vao so thu [',i,']='); readln(so); tong:= tong + so; end; writeln('Tong cua N so vua nhap bang: ',tong:4); readln; END.