. Внести в программу изменения таким образом, чтобы программа выводила сумму отрицательных элементов массива. Program Massiv_1a; Var a:Array [1..20] Of Integer i,k:Intege Begin write('Введите количество элементов массива не более 20:'); Read(k); For i:=1 To k Do Read(a) End.
. Внести в программу изменения таким образом, чтобы программа выводила сумму отрицательных элементов массива. Program Massiv_1a; Var a:Array [1..20] Of Integer i,k:Intege Begin write('Введите количество элементов массива не более 20:'); Read(k); For i:=1 To k Do Read(a) End.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Program Massiv_1a;
Var
a: Array [1..20] Of Integer;
i, k, sum: Integer;
Begin
sum := 0;
Write('Введите количество элементов массива не более 20:');
Read(k);
For i:=1 To k Do
Begin
Read(a[i]);
if a[i] < 0 then
Begin
sum := sum + a[i];
End;
End;
Write('Сумма отрицательных элементов массива: ', sum);
End.