1.

program Tin_hoc;

uses crt;

var i,n,max,min,tongam,tongduong,a,b:integer;

      a: array [1..100] of integer;

begin

write('Nhap 1<=n<=100: ');readln(n);

while n>100 do begin write('Nhap lai: ');readln(n) end;

while n<1 do begin write('Nhap lai: ');readln(n) end;

writeln('Nhap ',n,' so: ');

for i:= 1 to n do readln(a[i]);

max:=a[1];min:=a[1];tongam:0;tongduong:=0;a:=1;b:=1;

writeln('Mang vua nhap la:')

for i:= i to n do

begin 

  write(a[i],'   ');

  if max<a[i] then begin max:=a[i]; a:=i end;

  if min>a[i] then begin min:=a[i]; b:=i end;

  if a[i] > 0 then tongduong:=tongduong+a[i];

  if a[i] < 0 then tongam:=tongam+a[i];

end;

writeln;

writeln('Phan tu lon nhat trong day la ',max,' o vi tri thu ',a);

writeln('Phan tu nho nhat trong day la ',min,' o vi tri thu ',b);

writeln('Tong cua cac phan tu am trong mang la: ',tongam);

writeln('Tong cua cac phan tu duong trong mang la: ',tongduong);

readln;

end.

2.

program Tin_hoc;

uses crt;

var i,n,max,a,k,tongboi:integer;

      a: array [1..100] of integer;

begin

write('Nhap 1<=n<=100: ');readln(n);

while n>100 do begin write('Nhap lai: ');readln(n) end;

while n<1 do begin write('Nhap lai: ');readln(n) end;

writeln('Nhap ',n,' so: ');

for i:= 1 to n do readln(a[i]);

max:=a[1];tongboi:=0;a:=1;

write('Nhap k: ');readln(k);

writeln('Mang vua nhap la:');

for i:= 1 to n do 

begin

write(a[i],'   ');

if max<a[i] then begin max:=a[i];a:=i end;

if a[i] mod k = 0 then tongboi:=tongboi+a[i]

end;

writeln;

writeln('So lon nhat trong day la ',max,' o vi tri thu ',a);

writeln('Tong cua cac phan tu la boi cua ',k,' la: ',tongboi);

readln;

end.

Mik chỉ giải giúp bạn 2 bài thôi thông cảm