PascalABC Составьте программу, которая заполняет массив b[1..8] случайными целыми числами...

Question

PascalABC
Составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечётными значениями.

Answer 1

Var A:array[1..8] of Integer;
i,k:integer;
begin
For i:=1 to 8 do
begin
A[i]:=Random(1,10);
Write(A[i],' ');
end;
For i:=1 to 8 do
If A[i] mod 2=0 then
k:=k+1;
Wrieln(k);
end.