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

116

321

Посмотреть ответы 2

Ответы на вопрос:

максим1715

Информатика

4,5(49 оценок)

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 .

ржакаmaker

Информатика

4,4(2 оценок)

Program massiv; var mass = array [1..15] of integer; i, max, n_max: integer; begin {заполнение массива} for i: = 1 to 15 do mass[i] = (random(32)-15) * 3; max : = 0; n_max : = 0; {нахождение максимума, вывод на экран} for i: = 1 to 15 do begin if mass[i] > max then begin max : = mass[i]; n_max : = i; end; write(mass[i], ' '); end; writeln('индекс максимального: ', n_max); end.