Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Тролебузина
03.02.2022, 07:27
Информатика

Написать задачу в Паскале.Определить что больше по модулю:сумма отрицательных чисел массива или отрицательных.

Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Айлинь

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.