ответ:тщательно проанализировать реальный объект или процесс;
выделить его наиболее существенные черты и свойства;
определить переменные, т.е. параметры, значения которых влияют на основные черты и свойства объекта;
описать зависимость основных свойств объекта, процесса или системы от значения переменных с логико-математических соотношений (уравнения, равенства, неравенства, логико-математические конструкций);
выделить внутренние связи объекта, процесса или системы с ограничений, уравнений, равенств, неравенств, логико-математических конструкций;
определить внешние связи и описать их с ограничений, уравнений, равенств, неравенств, логико-математических конструкций.
Объяснение:
var n,m:integer;
rost,nine_a,nine_b:real;
begin
write('Введите количество учинеков 9а класса: ');
readln(n);
write('Введите количество учинеков 9б класса: ');
readln(m);
writeln('Вводите рост каждого из учинеков 9а по очереди');
for i:integer :=1 to n do begin
write(i,': ');
read(rost);
nine_a:=nine_a+rost;
end;
nine_a:=nine_a/n; // средний рост 9а
writeln('Вводите рост каждого из учинеков 9б по очереди');
for i:integer :=1 to m do begin
write(i,': ');
read(rost);
nine_b:=nine_b+rost;end;
nine_b:=nine_b/n; // средний рост 9б
if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');
end.
как-то так, будут вопросы пиши)
Всего-то 30 мин