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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
