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

  • найти сумму элементов вещественного массива В размерностью 10элементов,значение элементов вводятся с экрана?

Ответы 2

  • var B: array [1..10] of real;

          s:real;

          i: integer;

    begin

      s:=0;

      for i:=1 to 10 do begin

        readln(b[i]);

        s:=s+b[i];

                              end;

      writeln(s);

    end.

        

    • Автор:

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

  • program m;

    uses crt;

    var a,b,c,d,e,f,g,h,i,k,s:integer;

    begin

    S:=0; 

    writeln(a,b,c,d,e,f,g,h,i,k);

    readln(a,b,c,d,e,f,g,h,i,k);

    S:=a+b+c+d+e+f+g+h+i+k;

    readln(S);

    writeln('s',=s); 

    end.       

    • Автор:

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

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

Еще вопросы

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

Войти через Google

 или

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

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

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