Написать задачу в Паскале.Определить что больше по модулю:сумма отрицательных чисел массива или отрицательных.
Чтобы оставить ответ, войдите или зарегистрируйтесь.
var
i, sum1, sum2, n : integer; // объявляем переменные целочисленного типа.
arr : array of integer; // объявляем массив.
Begin
writeln('Введите размерность массива:'); // вывод строки на экран.
read(n); // считываем размерность массива.
setlength(arr,n); // выделяем память под массив.
for i:= 0 to (n-1) do // начало цикла.
begin
arr[i] := random(-100, 100); // заполняем элемент массива числом из диапазона.
if (i > 0) then sum1 := sum1 + arr[i]; // считаем положительные элементы.
if (i < 0) then sum2 := sum2 + arr[i]; // считаем отрицательные элементы.
end;
if (sum1 > abs(sum2)) then
writeln('Сумма положительных чисел массива больше суммы отрицательных чисел по модулю.');
if (abs(sum2) > sum1) then
writeln('Сумма отрицательных чисел массива по модулю больше суммы положительных чисел.');
if (abs(sum2) = sum1) then
writeln('Сумма отрицательных чисел массива по модулю равна сумме положительных чисел.');
End.