(turbo pascal) определите среднего арифметического 5 чисел

Ответы (1)

Хрисой 24.11.2025 4
Uses Crt;
const
n=5;
a:array[1..5] of string=('первое','второе','третье','четвертое','пятое');
var
i:integer;
s,m:real;
begin
ClrScr;
Writeln('Вычисление среднего арифметического двух чисел.');
Writeln('Введите исходные данные:');
s:=0;
for i:=1 to n do begin
    Write('Введите ',a[i],' число -> '); Read(m);
    s:=s+m
    end;
Write('Среднее арифметическое пяти введенных чисел равно: ');
m:=s/n;
Writeln(Trunc(m),',',Round(100*Frac(m)));
ReadKey
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: