Вопрос школьника по предмету Информатика
С клавиатуры вводятся: количество учеников в классе, затем рост каждого. Найти: 1. рост самого маленького 2. рост самого высокого. Помогите пожалуйста.
Ответ учителя по предмету Информатика
program vb5; uses crt; var a:array [1..100] of integer; i,n,kd,km:integer; sm,sd:real; begin write (‘Введите количество учащихся: ‘); read(n); for i:=1 to n do read(a[ i ]); for i:=1 to n do begin if a[ i ]<0 then begin inc(km); sm:=sm-a[ i ]; end; if a[ i ]>0 then begin inc(kd); sd:=sd+a[ i ]; end; end; writeln(‘Средний рост мальчиков=’,sm/km:0:0); writeln(‘Средний рост девочек=’,sd/kd:0:0); end
.
Похожие вопросы от пользователей
Муж с женой ехали в машине по шоссе, когда у них закончился бензин. Муж говорит жене:
— Оставайся в машине, а я пойду до ближайшей заправки.
Вернусь примерно через час. Жена заперла все двери и окна и приготовилась ждать. Вдруг по радио она услышала следующее сообщение:
— Опасный преступник на свободе. Последний раз его видели на шоссе. Соблюдайте осторожность и сообщите в полицию, если узнаете его местонахождение.
Далее шло описание примет преступника. Внезапно жена увидела возле машины незнакомца, который в точности соответствовал описанию.
Когда муж вернулся час спустя, он обнаружил свою жену в машине мертвой. Это было убийство. Все окна и двери оставались по-прежнему закрыты. Машина была неповрежденной, все стекла целы, ни царапин, ни следов взлома. Каким способом была убита жена?