Что делает данная программа? program n_1;
var
a: integer;
z: array [1..50] of integer;
begin
for a := 1 to 50 do
begin
z[a] := random(201) - 100;
if z[a] > 0 then
write(z[a],' ');
end;
end
var
a: integer;
z: array [1..50] of integer;
begin
for a := 1 to 50 do
begin
z[a] := random(201) - 100;
if z[a] > 0 then
write(z[a],' ');
end;
end
More Questions From This User See All