С клавиатуры вводятся: количество учеников в классе, затем рост каждого. Найти: 1. рост...

0 голосов
62 просмотров

С клавиатуры вводятся: количество учеников в классе, затем рост каждого. Найти: 1. рост самого маленького 2. рост самого высокого. Помогите пожалуйста.


Информатика (121 баллов) | 62 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(108 баллов)