Question

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

Answer 1

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.

 

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

{ 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