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

Это не Борланд Паскаль, это Pascal ABC, потому что функция IntToStr в основных реализациях Паскаль отсутствует.

ну напишите write(a[i],','); если Вам так больше нравится

Вы мне одолжение делаете, что пишете "ну"? Или это идет от общей культуры?

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. 

{ 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);  ReadKeyend.Тестовое решение:Введите 5 целых чисел: 18 10 6 13 1518,10,6,13,15Среднее значение =  1.2400000000E+01