Question

СРОЧНО ПОМОГИТЕ ПОЖАЛУЙСТА!!!!
Задан массив из 10 элементов случайными числами от -30 до 30, найти: 1) сумму элементов массива,
2) количество отрицательных элементов,
3) вывести на экран сам массив
(Pascal ABC)​

Answer 1

const

N = 10; // размер массива

var

a: array[1..N] of integer; // массив

i: integer; // счетчик цикла

sum, count: integer; // sum - сумма элементов массива, count - количество отрицательных элементов

begin

randomize; // инициализируем генератор случайных чисел

// заполняем массив случайными числами от -30 до 30

for i := 1 to N do

a[i] := random(61) - 30;

// инициализируем сумму и количество отрицательных элементов нулями

sum := 0;

count := 0;

// вычисляем сумму элементов массива и количество отрицательных элементов

for i := 1 to N do

begin

sum := sum + a[i];

if a[i] < 0 then

count := count + 1;

end;

// выводим на экран сам массив

for i := 1 to N do

writeln(a[i]);

// выводим на экран сумму элементов массива и количество отрицательных элементов

writeln('Sum: ', sum);

writeln('Count: ', count);

end.