Что надо переделать (или добавить) чтобы все работало? program dfgvsdrfg;

Var A: array [1 ... 16] of integer;

k, i:integer;

begin

writeln ('исходные значения');

for i:=1 to 16 do

begin

A[i]:=random (41) - 20;

write (A[i], '');

end;

writeln;

write ('нулевые значения имеют элементы с индексами:')

for i:=1 to 16 do

if A[i]=0 then write (i, '');

end.

Question

Информатика

Ируша

8 сентября, 05:12

Что надо переделать (или добавить) чтобы все работало? program dfgvsdrfg;

Var A: array [1 ... 16] of integer;

k, i:integer;

begin

writeln ('исходные значения');

for i:=1 to 16 do

begin

A[i]:=random (41) - 20;

write (A[i], '');

end;

writeln;

write ('нулевые значения имеют элементы с индексами:')

for i:=1 to 16 do

if A[i]=0 then write (i, '');

end.

+5

Ответы (1)

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

Лила · Answer 1

Точку с запятой в строке write ('нулевые значения имеют элементы с индексами:');

Ну и write (A[i], ''); и write (i, ''); правильнее сделать как (A[i], ' '); и write (i, ' '); (поставить пробел между кавычками).