Паскаль) в массиве в (15) записано рост детей. найти на сколько сантиметров самый высокий ученик больше наименьшего.

243

362

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

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

rassslabon

Информатика

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

Const n = 15; var b: array[1..n] of integer; min,max,i: integer; begin randomize; write('b(',n,'): '); for i: = 1 to n do begin b[i]: =random(71)+130; write(' ',b[i]) end; writeln; max: =b[1]; min: =b[1]; for i: = 2 to n do begin if b[i]< min then min: =b[i]; if b[i]> max then max: =b[i] end; writeln('min(b) = ',min); writeln('max(b) = ',max); writeln('max(b) - min(b) = ',max-min); end.