Обнулить элементы массива B (9) в четных ячейках.

Question

Информатика

Армен

11 июля, 10:09

Обнулить элементы массива B (9) в четных ячейках.

+4

Ответы (1)

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

Лидуха · Answer 1

Const n=9;

var b:array[1 ... n] of integer;

i:integer;

begin

for i:=1 to n do b[i]:=random (20) - 5;

for i:=1 to n do write (b[i]:5) ;

writeln;

for i:=1 to n do

if (i mod 2=0) then b[i]:=0;

for i:=1 to n do write (b[i]:5) ;

end;

end.