Составте програму из 10 элементов массива [-8; 8] подсчитывает количество нечётных чисел, все четные заменяет нулём

Question

Информатика

Эсфирка

23 марта, 19:21

Составте програму из 10 элементов массива [-8; 8] подсчитывает количество нечётных чисел, все четные заменяет нулём

+4

Ответы (1)

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

Виктор · Answer 1

Var i, k:integer; a:array[1 ... 10] of integer;

begin

for i:=1 to 10 do begin a[i]:=random (17) - 8; write (a[i]:4) ; end;

for i:=1 to 10 do

if a[i] mod 20 then inc (k) else a[i]:=0;

writeln;

for i:=1 to 10 do write (a[i]:4) ;

writeln;

writeln ('кол-во нечет=', k) ;

end.