Информатика, опубликовано 2018-08-22 22:14:21 by Гость
Пользователь вводит целочисленный массив из 25 элементов . вычислить сумму элементов массива, меньших -12
Ответ оставил Гость
//Pascal ABC.NET v3.0 сборка 1111
Const
n=25;
Var
ar:array[1..n] of integer;
s,i:integer;
begin;
s:=0;
for i:=1 to n do
begin;
readln(ar[i]);
if ar[i] end;
writeln(Sum=,s);
end.
Пример ввода:
1
2
...
9
-10
-11
..
-19
20
21
..
25
Пример вывода:
Sum=-100
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.