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

  • введите в массив 5 целочисленных значений введите их в одну строку через запятую получите для массива среднее арифметическое число )) заранее спасибо

Ответы 1

  • Program Z;

    uses crt;

    const N=5;

    var A:array [1..N] of integer;

          i:integer;

          s:real;

    begin 

         ClrScr;  

         

         for i:=1 to N do

         readln (A[i]);

     

         ClrScr;

       

          for i:=1 to N do

          begin

          write (A[i],',');

          s:=s+A[i];

          end;

     

          writeln;

          s:=s/n;

          writeln (s);

      

          readln

    end.

    • Автор:

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

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

Еще вопросы

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

Войти через Google

 или

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

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

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