На языке Паскаль. Заполнить одномерный массив из n элементов случайными числами из промежутка от -20 до 20 и определить количество положительных элементов массива.
Ответ:
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.
Объяснение: