Что надо переделать (или добавить) чтобы все работало? 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.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.