Введите с клавиатуры в массив пять целочисленных значений. Выведите их в одну строку через запятую.Получите для массива среднее арифметическое. Программу на паскале Борланд если можно(бп).
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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