PascalABC

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

Question

Информатика

Леруся

23 февраля, 09:53

PascalABC

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

+2

Ответы (1)

Знаете ответ?

Максюта · 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.

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

PascalABC

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