В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Настя2017465
Настя2017465
25.12.2022 23:58 •  Информатика

Водномерном массиве найти сумму всех отрицательных чисел.

Показать ответ
Ответ:
Supermopsmeni
Supermopsmeni
05.10.2020 01:47
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('Сумма отрицательных=',a.Where(x->x<0).Sum)
end.

Пример
n= 13
99 -16 -23 -94 -91 64 -40 34 -82 -27 -34 -58 48
Сумма отрицательных=-465
0,0(0 оценок)
Ответ:
Aurelli1
Aurelli1
05.10.2020 01:47
var
  a: array of integer;
b, c: integer;
begin
writeln('Введите размерность массива');
readln(b);
setlength(a, b);
writeln('Введите ', b, ' элемента(ов)');
for var i := 0 to b - 1 do
begin
readln(a[i]);
if a[i] < 0 then
c := c + a[i];  
end;
writeln('Сумма отрицательных элементов массива =', c:4);
end.

вроде так
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота