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

Question

Информатика

Фортунат

20 марта, 07:49

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

+5

Ответы (1)

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

Аристарх · Answer 1

Var i, k:integer;

mas:array[1 ... 8] of byte;

begin

randomize;

for i: = 1 to 8 do

begin

mas[i]:=1+random (9) ;

write (mas[i],' ') ;

if mas[i] mod 2=0 then k:=k+1 end;

writeln () ;

write (k div 2)

end.