Предмет: Физика,
автор: yahochuspat2
Найти среднее значение 6 цифр. цифры нужно придумать самому. ЭТО СРОЧНО!!!!
Ответы
Автор ответа:
1
Ответ:
var
a,sum,sr:real;
i:integer;
begin
sum:=0;
for i:=1 to 6 do
begin
writeln('введи число');
read (a);
sum:=sum+a;
end;
sr:=sum/6;
writeln('среднее арефмитическое равно',sr);
end.
Объяснение:
хорошего дня
Похожие вопросы
Предмет: Русский язык,
автор: anyaavtonenko
Предмет: Алгебра,
автор: Rauau1999
Предмет: Другие предметы,
автор: 5216221
Предмет: Геометрия,
автор: айрин429
Предмет: Физика,
автор: ivankilers