Что делает данная программа? 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

Question

Информатика: Что делает данная программа? 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

marfa228 · Answer

Так-с, в разделе объявления переменных мы видим какую-то переменную a и какой-то массив z.

Идём далее, видим, что a у нас используется к счетчик для цикла for.

Получается, что мы заполняем массив случайными числами в заданном диапазоне и сравниваем каждый элемент массива с нулем, если элемент больше нуля, то мы выводим его на экран.

Теперь всё абсолютно ясно, программа заполняет массив случайными числами, а затем выводит те элементы на экран, которые больше нуля( то есть положительные)

Что делает данная программа? 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

Что делает данная программа? 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