Что надо переделать (или добавить) чтобы все работало? 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

Информатика

Васильич

7 декабря, 08:15

Что надо переделать (или добавить) чтобы все работало? 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.

+3

Ответы (1)

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

Максиан · Answer 1

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

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