uses crt;
var a : array[1..250] of integer;
    i, n, s1, s2, min, max, d1, d2  : integer;
begin
clrscr;
write(' nhap so phan tu co trong mang :'); readln(n);
s1 := 0;
s2 := 0;
for i := 1 to n do
begin
write(' nhap phan tu thu ', i ,' : '); readln( a[i]);
if a[i] > 10 then s1 := s1 +  a[i];
if (a[i] < 8) and (a[i] mod 2 <> 0 ) then s2 := s2 + a[i];
end;
write(' cac phan tu trong mang la :');
for  i:= 1 to n do write( a[i]: 3 );
writeln;
writeln(' tong phan tu lon hon 10 : ', s1 );
writeln(' tong phan tu le be hon 8 :', s2);
write(' cac phan tu chan co chi so le :');
for  i:= 1 to n do if (a[i] mod 2= 0) and (i mod 2 <> 0) then write( a[i]:3 );
writeln;
max := a[1] ;d1:= 1;
for i:= 1 to n do if a[i] > max then
begin
max := a[i];
d1 := i; 
end;
writeln(' phan tu lon nhat  la :', a[d1]  );
min := a[1] ;d2:= 1;
for i:= 1 to n do if a[i] < min then 
begin
min := a[i];
d2 := i;
end;
writeln(' phan tu nho  nhat  la : ', a[d2]);
a[d1] := a[d1]+ a[d2];
a[d2] := a[d1]- a[d2];
a[d1] := a[d1] - a[d2];
write(' cac phan tu trong mang sau khi hoan vi max va min :' );
for  i:= 1 to n do write( a[i]: 3);
readln
end.

uses crt;

var n:string[100];

      i,S,C,P:integer;

begin

write('nhap N:');readln(n);

for i:=1 to 100 do write(n[i]);

writeln;

a:=1;

S:=0;

while a+2<100 do S:=S+a;

writeln('S=',S);

P:=0;

C:=1;

for i:=1 to 100 do

begin

if n[i]<10 then P:=P+n[i];

if (n[i] mod 2)=1 and n[i]<8 then C:=C*n[i];

end;

writeln('P=',P);

writeln('C=',C);

readln;

end.

P/S: sr bn 2 cái cuối mk ko bt lm nhé! Sr bn nh