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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
