Массив из 20 целых чисел. Заполнить случайными числами от - 50 до 50. Найти сумму положительных чисел.

var

i, n: integer; / / объявляем переменные целочисленного типа.

arr: array [1 ... 20] of integer; / / объявляем массив.

s : string; / / объявляем переменную строкового типа.

begin

for i : = 1 to 20 do / / начало цикла.

begin

arr[i] : = random (-50, 50); / / заполняем элемент массива числом из диапазона - 50; 50.

s : = s + inttostr (arr[i]) + ' '; / / записываем массив в одну строку.

if (arr[i] > 0) then n : = n + arr[i]; / / считаем сумму положительных чисел.

end;

writeln ('Исходный массив: ', s); / / вывод строки на экран.

writeln ('Сумма положительных чисел равна: ', n); / / вывод строки на экран.

end.