Даны n чисел. Как найти сумму чисел , больших чем заданное число a ?
const n=10;
var a,s,i: integer;
m:array[1..n] of integer;
begin
read(a);
for i:=1 to n do
if m[i]>a then s:=s+m[i];
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Даны n чисел. Как найти сумму чисел , больших чем заданное число a ?
const n=10;
var a,s,i: integer;
m:array[1..n] of integer;
begin
read(a);
for i:=1 to n do
if m[i]>a then s:=s+m[i];
end.