Что надо переделать (или добавить) чтобы все работало? 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; wr...
Что надо переделать (или добавить) чтобы все работало? 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.
Гость
Ответ(ы) на вопрос:
ГостьТочку с запятой в строке write('нулевые значения имеют элементы с индексами:');
Ну и write (A[i], ''); и write (i, ''); правильнее сделать как (A[i], ' '); и write (i, ' '); (поставить пробел между кавычками).
Не нашли ответ?
Похожие вопросы