<em>майор – артиллерист, капитан – лётчик, лейтенант – связист, старшина – миномётчик, сержант – сапёр, ефрейтор – танкист. </em>
Держи! Можно сделать и проще намного, как и говорилось выше, через циклы, но так как тебе такое решение видимо надо, то держи именно такое :)
var
v,a,b,c: real;
begin
writeln ('введи длину, ширину и высоту коробки');
read (a,b,c);
v:=a*b*c;
writeln ('объем коробки равен', v);
end.
Пусть ученик неуспевающий, если сумма его отметок меньше 2+2+3+3=10.
var
count_losers, sum, current_sum, mark, i, j, n: integer;
begin
read(n);
count_losers := 0;
for i := 1 to n do
begin
current_sum := 0;
for j := 1 to 4 do
begin
read(mark);
current_sum := current_sum + mark;
end;
if current_sum < 10 then
inc(count_losers);
sum := sum + current_sum;
end;
writeln('Неуспевающих учеников: ', count_losers);
writeln('Средняя сумма четырёх отметок: ', sum / n);
writeln('Средняя отметка: ', sum / 4 / n);
end.
Пример ввода:
4
2 2 2 5
2 2 5 2
2 5 2 2
3 2 2 2
Пример вывода:
Неуспевающих учеников: 1
Средняя сумма четырёх отметок: 10.5
Средняя отметка: 2.625
Див - целое число от деления
будет 3
