Пользователь вводит целочисленный массив из 25 элементов . вычислить сумму элементов массива, меньших -12

АмелияРайс АмелияРайс    2   17.07.2019 21:00    1

Ответы
Lulu84 Lulu84  21.09.2020 20:14
//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]<12 then s:=s+ar[i];
  end;
writeln('Sum=',s);
end.

Пример ввода:
1
2
...
9
-10
-11
..
-19
20
21
..
25
Пример вывода:
Sum=-100
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика