Question

На языке Паскаль. Заполнить одномерный массив из n элементов случайными числами из промежутка от -20 до 20 и определить количество положительных элементов массива.

Answer 1

Ответ:

program lol;

var

n,i,k:integer;

a: array [1..n] of integer;

begin

read(n);

for i:=1 to n do

a[i]:=random ( 41)-20;

if a[i]>0 then

k+=1;

end.

Объяснение: