Bài 1:
uses crt;
var i,n,max,min,d1,d2: integer;
a: array [1..100] of integer;
begin
clrscr;
write('Nhap so ban trong lop: '); readln(n);
for i:=1 to n do begin
write('Diem ban thu ',i,' : ');
readln(a[i]); end;
max:=a[1]; min:=a[1];
for i:=2 to n do begin
if max<a[i] then begin max:=a[i]; d1:=i; end;
if min>a[i] then begin min:=a[i]; d2:=i; end;
end;
writeln('Ban thu ',d1,' co diem cao nhat bang: ',max);
writeln('Ban thu ',d2,' co diem thap nhat bang: ',min);
readln;
end.
Bài 2:
uses crt;
var i,n,s: integer;
a: array [1..100] of integer;
begin
clrscr;
write('Nhap so phan tu cua day: '); 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+sqr(a[i]);
writeln('Tong binh phuong cac so le la: ',s);
readln;
end.
mk đã test r nhá! mong đc vote
