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

Создать одномерный массив целых случайных чисел в интервале от -10 до 25 в количестве из 30 элементов. Распечатать данный массив, вычислить сумму положительных элементов 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы