Введите с клавиатуры в массив пять целочисленных значений. Выведите их в одну строку через запятую.Получите для массива среднее арифметическое. Программу на паскале Борланд если можно(бп).
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
