Предмет: Физика, автор: yahochuspat2

Найти среднее значение 6 цифр. цифры нужно придумать самому. ЭТО СРОЧНО!!!!

Ответы

Автор ответа: kotovanatalya1992
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.

Объяснение:

хорошего дня

Похожие вопросы
Предмет: Физика, автор: ivankilers