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

Пользователь вводит целочисленный массив из 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]<12 then s:=s+ar[i];   end; writeln('Sum=',s); end. Пример ввода: 1 2 ... 9 -10 -11 .. -19 20 21 .. 25 Пример вывода: Sum=-100
Не нашли ответ?
Ответить на вопрос
Похожие вопросы