Const max=18;
var i,k:byte;
ar:array [1..max] of integer;
s:integer;
begin
writeln('Начальный массив случайных чисел в диапазоне [0,30)');
for i:=1 to max do begin
ar[i]:=random(0,29);
write(ar[i]:6);
end;
k:=0;
s:=0;
for i:=1 to max do begin
if ar[i]>15 then
k:=k+1;
if not odd(ar[i]) then
s:=s+ar[i];
end;
writeln();
writeln('Задание 1. ', 'k=', k);
writeln('Задание 2. ', 's=', s);
end.