Найти сумму отрицательных элементов массива - Turbo Pascal (29473)

Формулировка задачи:

Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найтисумму отрицательных элементов.

Решение задачи: «Найти сумму отрицательных элементов массива»

Листинг программы

var a:array[1..10] of integer; i,s:integer;
begin
 for i:=1 to 10 do begin
  readln(a[i]); if a[i]<0 then s:=s+a[i];
 end;
 write('Сумма = ',s); Readln;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач различных уровней сложности. Переменные в данном коде имеют следующие значения:

a - массив из 10 элементов целого типа;
i - переменная для хранения текущего индекса элемента массива;
s - переменная для хранения суммы отрицательных элементов массива. Для решения поставленной задачи в цикле for происходит следующее:
Считывается значение элемента массива a[i] с помощью функции readln().
Если значение элемента меньше нуля, то к переменной s прибавляется значение элемента a[i].
Цикл выполняется 10 раз, так как указан диапазон от 1 до 10.
По окончании цикла выводится сообщение Сумма =, за которым следует значение переменной s, а затем вызывается функция Readln() для чтения символа новой строки. Таким образом, данный код находит сумму отрицательных элементов массива.