uses crt;

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

i,k,d,s,dd: integer;

begin

clrscr;

d:=0;

s:=0;

dd:=0;

write ('nhap k: ');  readln (K);

for i:=1 to 30 do

begin

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

if a[i]=k then d:=d+1;

if a[i] mod 2=1 then dd:=dd+1;

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

end;

write ('Mang da nhap: ');

for i:=1 to 30 do write (a[i]:4);

writeln;

writeln ('Co ',dd,' phan tu le');

writeln ('Co ',d,' phan tu co gia tri ',k);

writeln ('Tong cac phan tu duong la: ',s);

readln;

end.

uses crt;
var i,d,d2,k,s: integer;
    a: array[1..30] of integer;
begin
clrscr;
    for i:=1 to 30 do begin
        write('a[',i,']=');
        readln(a[i]);
    end;
    write('Nhap k: '); readln(k);
    write('Mang da nhap la: ');
    for i:=1 to 30 do
    begin
        write(a[i],' ');
        if a[i] mod 2<>0 then d:=d+1;
        if a[i] = k then d2:=d2+1;
        if a[i] > 0 then s:=s+a[i];
    end;
    writeln;
    writeln('Co ',d,' phan tu le');
    writeln('Co ',d2,' phan tu bang ',k);
    writeln('Tong phan tu duong = ',s);
    readln
end.