Question

Дан массив mas(s) из вещественных элементов.Введите в строку и выведите в строку элементы массива с одним знаком после запятой,на вывод числа отведите 6 позиций

Answer 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. всё изи