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

Question

Информатика

Старемилиан

7 августа, 05:56

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

+4

Ответы (1)

Знаете ответ на вопрос?

Нюра · Answer 1

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]
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.