Тема

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

Question

Информатика

Галлии

22 августа, 00:39

Тема

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

+1

Ответы (1)

Знаете ответ на вопрос?

Викта · Answer 1

Program n1;

Uses CRT;

Const n=10;

Var x:array[1 ... n] of integer;

i, s, a: integer;

begin

Writeln ('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) ;

readln

end.

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

Тема

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