Срочно решитее прошууу!!!!! Заполнить массив a[1..10] из десяти целых чисел от -30 до 30...

Question

Срочно решитее прошууу!!!!!
Заполнить массив a[1..10] из десяти целых чисел от -30 до 30 с помощью датчика случайных чисел и вывести исходный массив на экран.Найти сумму положительных
элементов массива.

Answer 1

Const
    n = 10;

var
    s, i: integer;
    a: array[1..n] of integer;

begin
    Randomize;
    for i := 1 to n do
    begin
        a[i] := random(60) - 30;
        write(a[i], ' ');
        if a[i] > 0 then
            s := s + a[i];
    end;
    
    writeln;
    writeln(s);
end.