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

Question

Информатика

Лександра

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

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

+2

Ответы (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.