Информатика, опубликовано 2018-08-22 17:50:09 by Гость
Дан массив А [12] Подсчитать сумму отрицательных элементов массива. Значения элементов массива целые числа от -20 до 20 СРОЧНО!!!!!!!!!!!!!!
Ответ оставил Гость
Const n=12;
var
a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
writeln(Исходный массив:);
for i:=1 to n do begin
a[i]:=Random(41)-20;
Write(a[i]:4)
end;
writeln;
s:=0;
for i:=1 to n do
if a[i] Writeln(s = ,s);
end.
Пример:
Исходный массив:
-21 -5 -22 17 5 -8 -20 -3 25 -6 -6 21
s = -91
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на