Введите с клавиатуры 4 числа. Выведите на экран среднее арифметическое и среднее геометрическое этих чисел. Cоставьте блок-схемы для данной программы.

var a,b,c,d: integer; begin readln(a); readln(b); readln(c); readln(d); writeln((a+b+c+d)/4); end

Объяснение:

алгоритм

ввод a,b,c,d

e=(a+b+c+d)/4

вывод e

все остальное вам рассказывали и показывали на уроках

var a,k:integer; s:real;

begin s:=0;

for k:=1 to 4 do begin write('vvedite',k,'-e chislo: ');readln(a);s:=s+a end;

write('Summa chisel= ',s,' srednee arifmeticheskoe: ',s/4);

readln

end.