Информатика, опубликовано 2018-08-22 19:30:19 by Гость
В одномерном массиве найти сумму всех отрицательных чисел.
Ответ оставил Гость
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] then
c := c + a[i];
end;
writeln(Сумма отрицательных элементов массива =, c:4);
end.
вроде так
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на