Запишите программу в синтаксисе паскаль ABC которая заполняет массив случайными числами на отрезке от - 2 до 2 и считает сумму положительных элементов массива. Когда будете писать программу, не забывайте что в 9 м классе простые алгоритмы и еще более простые операторы.

Const

kk=100; { максимальный размер массива }

var

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

i, k, s:integer;

begin

Write ('Введите количество элементов массива: ') ;

Read (k) ;

Randomize;

s:=0;

for i:=1 to k do begin

a[i]:=Random (5) - 2;

Write (a[i],' ') ;

if a[i]>0 then s:=s+a[i]

end;

Writeln;

Writeln ('Сумма положительных элементов массива равна ', s)

end.

Пример

Введите количество элементов массива: 20

2 2 1 - 2 - 1 - 1 1 0 1 2 1 0 2 1 2 - 2 - 1 - 1 - 1 - 2

Сумма положительных элементов массива равна 15