С клавиатуры вводятся: количество учеников в классе, затем рост каждого. Найти: 1. рост самого маленького 2. рост самого высокого. Помогите пожалуйста.
Answers & Comments
maks199803
Program vb5;uses crt;var a:array [1..100] of integer;i,n,kd,km:integer; sm,sd:real;beginwrite ('Введите количество учащихся: ');read(n);for i:=1 to n doread(a[ i ]);for i:=1 to n dobeginif a[ i ]<0 thenbegininc(km);sm:=sm-a[ i ];end;if a[ i ]>0 thenbegininc(kd);sd:=sd+a[ i ];end;end;writeln('Средний рост мальчиков=',sm/km:0:0);writeln('Средний рост девочек=',sd/kd:0:0);end.
Answers & Comments