smnoregrets
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;
Answers & Comments
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.