Задать вопрос Регистрация
Помочь другим

  • Тема<Одномерные массивы>

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

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years