Обнулить элементы массива B(9) в четных ячейках.
Обнулить элементы массива B(9) в четных ячейках.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы