Const nn=50; // максимальное количество учеников var i,n,sm,sd,km,kd:integer; am,ad:real; var a:array[1..nn] of integer; begin Write('Введите количество учеников: '); Read(n); Writeln('Введите рост учеников'); sm:=0; sd:=0; km:=0; kd:=0; for i:=1 to n do begin Read(a[i]); if a[i]>0 then begin sd:=sd+a[i]; Inc(kd) end else begin sm:=sm-a[i]; Inc(km) end end; am:=sm/km; ad:=sd/kd; Write('Средний рост мальчиков (',am:0:1,') '); if am-ad<=10 then Write('не '); Writeln('превышает средний рост девочек (',ad:0:1,') '); Writeln('больше, чем на 10 см') end.
Примерное решение
Введите количество учеников: 9 Введите рост учеников -192 165 -174 179 -172 171 169 170 -170 Средний рост мальчиков (177.0) не превышает средний рост девочек (170.8) больше, чем на 10 см
nn=50; // максимальное количество учеников
var
i,n,sm,sd,km,kd:integer;
am,ad:real;
var a:array[1..nn] of integer;
begin
Write('Введите количество учеников: ');
Read(n);
Writeln('Введите рост учеников');
sm:=0; sd:=0; km:=0; kd:=0;
for i:=1 to n do
begin
Read(a[i]);
if a[i]>0 then begin sd:=sd+a[i]; Inc(kd) end
else begin sm:=sm-a[i]; Inc(km) end
end;
am:=sm/km; ad:=sd/kd;
Write('Средний рост мальчиков (',am:0:1,') ');
if am-ad<=10 then Write('не ');
Writeln('превышает средний рост девочек (',ad:0:1,') ');
Writeln('больше, чем на 10 см')
end.
Примерное решение
Введите количество учеников: 9
Введите рост учеников
-192 165 -174 179 -172 171 169 170 -170
Средний рост мальчиков (177.0) не превышает средний рост девочек (170.8)
больше, чем на 10 см
использовать Чертежник
алг Слон
нач
опустить перо
сместиться на вектор(2, 0)
сместиться на вектор(0, 2)
сместиться на вектор(1, 0)
сместиться на вектор(0, -2)
сместиться на вектор(2, 0)
сместиться на вектор(0, 2)
сместиться на вектор(1, 1)
сместиться на вектор(0, 2)
сместиться на вектор(1, -2)
сместиться на вектор(-1, 2)
сместиться на вектор(-1, 1)
сместиться на вектор(-3, 0)
сместиться на вектор(-1, 1)
сместиться на вектор(-1, 0)
сместиться на вектор(-1, -2)
сместиться на вектор(-1, 0)
сместиться на вектор(0, 3)
сместиться на вектор(-1, 0)
сместиться на вектор(0, -3)
сместиться на вектор(1, -1)
сместиться на вектор(2, -1)
сместиться на вектор(0,-3)
поднять перо
сместиться на вектор(1, 3)
опустить перо
сместиться на вектор(1, 1)
сместиться на вектор(0, 2)
поднять перо
сместиться на вектор(-2, -1)
опустить перо
сместиться на вектор(-0.1, 0.1)
сместиться на вектор(-0.1, -0.1)
сместиться на вектор(0.1, -0.1)
сместиться на вектор(0.1, 0.1)
поднять перо
сместиться на вектор(0, -5)
кон
Объяснение: