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

Question

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

Comments

что решить?

---

Задачу в паскале

---

СОздать массив и заполнить случайными числами?

---

Найти количество положительных чисел .

Answer 1

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.