Bài `1`
Program Hotboy;
Uses crt;
Var i,n:integer;
Max,S:longint;
A:array[1..100] of integer;
Begin
clrscr;
S:=0;
Write('nhap n nguyen duong tu ban phim ');
Readln(n);
For i:=1 to n do
Begin
Write(' A[',i,']');readln(A[i]);
End;
Write('day so do la');
For i:=1 to n do
S:=S+A[i];
Max:=A[1];
For i:=2 to n do
If A[i] > max then A[i]:=max;
Write('Tong la',S, so lon nhat la',max);
Readln
End.
Bài `2`
Program Hotboy;
Uses crt;
Var i,n:integer;
Min,S:longint;
A:array[1..100] of integer;
Begin
clrscr;
S:=0;
Write('nhap n nguyen duong tu ban phim ');
Readln(n);
For i:=1 to n do
Begin
Write(' A[',i,']');readln(A[i]);
End;
For i:=1 to n do
If (A[i] mod 2=0) then
S:=S+A[i];
Max:=A[1];
For i:=2 to n do
If A[i] < min then A[i]:=min;
Write('Tong chan la',S, so nho nhat la',min);
Readln
End.