Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Для n произвольно введённых чисел с клавиатуры вычислить сумму тех , которые больше , чем заданное число А .очень нужно решение...

Ответ оставил Гость

var i,A,n,sum,v:integer;beginwrite(Введите заданное А); readln(A);write(Введите число вводов n); readln(n);for i:= 1 to n dobeginwrite(Введите число); readln(v);if v > A  then sum:= sum +v;end;write(Сумма = , sum);end.