13
For i:=2 to 5 do begin
if min > a[i] then
min:=a[i];
end;
write(min);
14
program p1;
uses crt;
var a:array [1..20] of integer;
i,k,s:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
If a[i] mod 2 = 0 then
K:=K+1;
s:=s+a[i];
end;
write(k,' ',s);
end.
15
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,n:integer;
begin
read(n);
writeln;
for i:=1 to 10 do begin
read(a[i]);
s:=s+a[i];
If a[i] = N then
K:=K+1;
end;
write(k,' ',s);
end.