Для n произвольно введённых чисел с клавиатуры вычислить сумму тех , которые больше , чем заданное число А .очень нужно решение...
Для 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.
Не нашли ответ?
Похожие вопросы