Помогите сделать) Удалить первый элемент массива кратный 3.

Question

Информатика

Серафим

2 августа, 07:14

Помогите сделать) Удалить первый элемент массива кратный 3.

+3

Ответы (1)

Знаете ответ на вопрос?

Эраст · Answer 1

Const

n = 10;

var

a : array [1 ... n] of integer;

i, m : integer;

begin

for i : = 1 to n do / / При формировании забил

a[i] : = i; / / просто индексы

m : = 0;

i : = 1;

while (m = 0)

and (i<=n) do

begin

if a[i] mod 3 = 0 then

begin

a[i] : = 0;

m : = 1;

end;

i : = i + 1;

end;

for i : = 1 to n do

writeln (a[i]) ;

end.