Дан одномерный массив из 25 целых случайных чисел - вопрос №25100508840854 от МарияТуз 31.03.2023 21:59

Question

Информатика: Дан одномерный массив из 25 целых случайных чисел из диапазона [-100; 50] решите .

МарияТуз · Answer

program HelloWorld;

var n:array [1..25] of integer;

var i: SmallInt;

begin

for i := 1 to 25 do

n[i] := -100 + random(150);

for i := 1 to 25 do

if n[i] > 0 then writeln(n[i]);

end.