Программа которая вычесляет массив b (1 ... 8) случайными целыми числами в диапозоне от 1 до 10 и находит количество элементов с нечётными значениями

Question

Информатика

Вонифатий

2 февраля, 15:12

Программа которая вычесляет массив b (1 ... 8) случайными целыми числами в диапозоне от 1 до 10 и находит количество элементов с нечётными значениями

+1

Ответы (1)

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

Светуня · Answer 1

Var a:array[1 ... 100] of integer;

i, s:integer;

begin

for i:=1 to 8 do begin

a[i]:=random (11) - 0;

write (a[i]:4) ;

end;

s:=0;

for i:=1 to 8 do begin

if a[i] mod 20 then

s:=s+1;

end;

writeln;

writeln (s) ;

end.