1)

uses crt;
var n,i,d,s:longint; a:array[1..1000000]of longint;
begin 
clrscr;
   write('n=');readln(n);
   for i:=1 to n do 
      begin
         write('a[',i,']=');readln(a[i]); 
         s:=s+a[i];
      end;
   write('a) ');
   for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ') else d:=d+1;
   writeln;
   writeln('b) S=',s);
   writeln('c) dem=',d);
readln
end.

2)

uses crt;
var n,i,max,min:longint; a:array[1..1000000]of longint;
begin 
clrscr;
   write('n=');readln(n);
   for i:=1 to n do 
      begin
         write('a[',i,']=');readln(a[i]); 
      end;
   max:=a[1]; min:=a[1];
   for i:=1 to n do 
      begin
         if max<a[i] then max:=a[i]; 
         if min>a[i] then min:=a[i]; 
      end;
   writeln('a) ',max);
   writeln('b) ',min);
readln
end.

câu 1:

uses crt;

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

i,n,s,d: integer;

begin

clrscr;

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

s:=0;

d:=0;

for i:=1 to n do

begin

write ('nhap a[',i,']: ');  readln (a[i]);

s:=s+a[i];

if a[i] mod 2<>0 then d:=d+1;

end;

write ('a/ cac phan tu chan trong mang la: ');

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

writeln;

write ('b/ tong cac phan tu trong mang la: ',s);

writeln ;

write ('c/ trong mang co ',d,' phan tu le');

readln;

end.

câu 2:

uses crt;

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

i,n,min,max: integer;

begin

clrscr;

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

for i:=1 to n do

begin

write ('nhap 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 ('so lon nhat la: ',max);

writeln ('so be nhat la: ',min);

readln;

end.