|
Известны возраст (в годах в виде 14.5 лет и т.д.) каждого ученика двух классов. Определить средний возраст учеников каждого класса. В каждом классе учатся 20 человек.
|
|
|
|
program cikl;
uses crt;
var N,i:integer;
S,x:real;
begin
clrscr;
write('Сколько учеников 1-го класса? '); readln(N);
S:=0; i:=1;
while (i<=N) do
begin
write('Vvedite',i, 'возраст ученика '); readln(x);
S:=(S+x)/2;
i:=i+1;
end;
write('Средний возраст учеников 1-го класса ' ,S:2:1);
writeln('Сколько учеников 2-го класса '); readln(N);
S:=0; i:=1;
while (i<=N) do
begin
write('Vvedite',i, 'возраст ученика '); readln(x);
S:=(S+x)/2;
i:=i+1;
end;
write('Средний возраст учеников 2-го класса ' ,S:2:1);
readln;
end.
Благодарность принимается в виде нажатого зеленого плюсика возле ника!
|
|
|
|
