создать одномерный массив целых случайных чисел в интервале от -10 до 25 в количестве из 30 элементов. Распечатать данный массив, вычислить сумму положительных элементов 2 и 3 массива.

Вопрос школьника по предмету Информатика

создать одномерный массив целых случайных чисел в интервале от -10 до 25 в количестве из 30 элементов. Распечатать данный массив, вычислить сумму положительных элементов 2 и 3 массива.

Ответ учителя по предмету Информатика

Не понятно что значит »
2 и 3 массива«, остальное сделанно

var

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

    i, n, sum: integer;

begin

    n := 30;

    

    writeln(‘Данные массива:’);

    for i := 1 to n do

    begin

        a[i] := random(35) — 10;

        write(a[i], ‘ ‘);

    end;

    writeln();

    

    sum := 0;

    for i := 1 to n do

        if a[i] > 0 then

            sum := sum + a[i];

    writeln(‘sum = ‘, sum);

end.