Question

СРОЧНО!!!! ИНФОРМАТИКА!!! ПОМОГИТЕ!!!
Дан массив из 15 элементов, заданных случайным образом из диапазона [-5;5] Подсчитайте сумму положительных и отрицательных элементов массива. ​

Answer 1

Программа:

Pascal:

const n = 15;  // кол-во элементов в массиве

var

 arr: array[1..n] of integer;

 i, sumPlus, sumMinus: integer;

begin

 for i := 1 to n do

 begin

   arr[i] := random(-5, 5);  // заполнение случайными числами от -10 до 10

   if arr[i] > 0 then  // если число больше нуля...

     sumPlus += arr[i]  // к значению переменной sumPlus добавить значение этого элемента

   else  // иначе...

     sumMinus += arr[i];  // к значению переменной sumMinus добавить значение этого элемента

 end;

 

 writeln('Массив: ', arr);

 writeln('Сумма положительных элементов: ', sumPlus);

 writeln('Сумма отрицательных элементов: ', sumMinus);

end.