Введите с клавиатуры в массив пять целочисленных значений. Выведите их в одну строку через запятую. Получите для массива среднее арифметическое. Программу на паскале Борланд если можно (бп).

{ Borland Pascal 7.01 }

uses Crt;

const

n=5;

var

a:array[1 ... n] of integer;

i:integer;

avg:real;

begin

ClrScr;

Write ('Введите 5 целых чисел: ') ;

avg:=0;

for i:=1 to n do begin Read (a[i]) ; avg:=avg+a[i] end;

avg:=avg/n;

for i:=1 to n-1 do Write (a[i],',') ; Writeln (a[n]) ;

Writeln ('Среднее значение = ', avg) ;

ReadKey

end.

Тестовое решение:

Введите 5 целых чисел: 18 10 6 13 15

18,10,6,13,15

Среднее значение = 1.2400000000E+01

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

sr, i: integer;

s: string;

sar: real;

begin

sr:=0;

s:='';

for i:=1 to 5 do

begin

readln (a[i]) ;

sr:=sr+a[i];

s:=s+IntToStr (a[i]) + ', ';

end;

sar:=sr/5;

s[Length (s) ]:='';

writeln (s) ;

writeln ('среднее равно: ', sar) ;

end.