BÀI 7:
program ct;
uses crt;
var i,n,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang a[',i,']:=');readln(a[i]);
end;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('tong la',s);
readln
end.
BÀI 8:
program ct;
uses crt;
var i,n,s,max,min:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang a[',i,']:=');readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('gia tri lon nhat la',max);
writeln('gia tri nho nhat',min);
readln
end.
