program Min; uses crt; var A:array[1..100] of integer; max,i,S:integer; begin clrscr; S:=0; for i:=1 to 100 do begin write('Nhap phan tu thu ',i,': '); readln(A[i]); S:=S+A[i]; end; max:=A[1]; for i:=1 to 100 do write(A[i]:4); writeln(''); for i:=2 to 100 do if A[i]>max then max:=A[i]; writeln('Tong la: ',S); writeln('Phan tu lon nhat la: ',max); readln end.
Program BTT; Uses crt; Var A: array[1..100] of longint; n,i,s,max: longint; Begin Clrscr; For i:=1 to 100 do Begin Write('A[',i,'] = '); Read(A[i]); s:=s+A[i]; End; For i:=1 to 100 do Write(A[i],' '); Writeln; Write('S = ',s); max:=A[1]; For i:=2 to n do If A[i]>max then max:=A[i]; Write('Max = ',max); Readln End.
