Впяти тестовых опросах мальчик получил оценки.составите алгоритм и программу,которая определит среднее значение оценок, полученных мальчиком в пяти опросах
Var a,b,sek_m,sek_l:integer; begin writeln('на каком этаже живёт Миша?'); readln(a); writeln('на каком этаже находится лифт?'); readln(b); writeln('за сколько секунд Миша поднимается на этаж?'); readln(sek_m); writeln('за сколько секунд лифт поднимается на этаж?'); readln(sek_l); sek_m:=sek_m*a-sek_m; writeln('Миша поднимется на нужный этаж за ',sek_m,' сек.'); sek_l:=(sek_l*b+sek_l*a)-sek_l; writeln('лифт поднимется на нужный этаж за ',sek_l,' сек.'); if (sek_m=sek_l) then writeln('Миша будет подниматься одинаковое количество времени') else if (sek_l>sek_m) then writeln('Мише быстрее подняться самому') else writeln('Мише быстрее подняться на лифте'); end.
begin
write ('Введите результаты 1 опроса: ');
readln (a);
write ('Введите результаты 2 опроса: ');
readln (b);
write ('Введите результаты 3 опроса: ');
readln (c);
write ('Введите результаты 4 опроса: ');
readln (d);
write ('Введите результаты 5 опроса: ');
readln (e);
f:=(a+b+c+d+e)/5;
writeln ('Средний = ',f);
end.