Задание:
Тема<Одномерные массивы> Дано N чисел. Найдите сумму чисел, больших заданного числаА
Решение:
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.
Знаете другой ответ?