(Pascal) Задача: Дан массив из 8 элементов, с помощью датчика случайных чисел посчитать количество нечётных элементов.
Answers & Comments
ЕнотЕнотыч
Program enot; Var a: array [1..8] of integer; i,k:integer; begin k:=0; for i:= 1 to 8 do begin a[i]:= random(1000); if a[i] mod 2 <>0 then k:=k+1; end; write(k); end.
Answers & Comments
Var a: array [1..8] of integer;
i,k:integer;
begin
k:=0;
for i:= 1 to 8 do
begin a[i]:= random(1000);
if a[i] mod 2 <>0 then k:=k+1;
end;
write(k);
end.