Тема Дано N чисел. Найдите сумму чисел, больших заданного числаА

Question

Тема<Одномерные массивы> Дано N чисел. Найдите сумму чисел, больших заданного числаА

Answer 1

41

firestarter

27 февраля 2023

Program n1; Uses CRT; Const n=10; Var x: array[1… n] of integer; i,s,a: integer; beginWriteln ('Vvedite chisla'); For i: =1 to n do readln (x[i]); Writeln ('Vvedite A'); Readln (a); For i: =1 to n do if x[i]>a then s: =s+x[i]; Writeln ('Summa elementov, bolshih a=',s); readlnend.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: