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

  • Дан массив А(м), м меньше или равно 20. Вывести на печать сумму элементов массива. если она превосходит число 50, в противном случае вывести в печать исходный массив.

Ответы 1

  • Program summa;

     Uses crt;

     Const m=20;

     Var a:array[1..m] of integer;

         i,s:integer;

     Begin

       For i:=1 to m do

        a[i]:=random(101)-50;

       For i:=1 to m do

        s:=s+a[i];

       If s>50 then writeln('Сумма = ',s) else

        for i:= 1 to m do

          Writeln('Элемент массива №',i,' равен ',a[i]);

     End.

     

    или

     

    Program summa;

     Uses crt;

     Const m=20;

     Var a:array[1..m] of integer;

         i,s:integer;

     Begin

       For i:=1 to m do

        Readln(a[i]);

    clrscr;

       For i:=1 to m do

        s:=s+a[i];

       If s>50 then writeln('Сумма = ',s) else

        for i:= 1 to m do

          Writeln('Элемент массива №',i,' равен ',a[i]);

     End.

    • Автор:

      bria
    • 6 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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