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

Вопрос от пользователя
Евстахий

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

Ответ
Маримьяна

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]Max then Max:=B[i]

End;

WriteLn (‘Min (B) = ‘, Min);

WriteLn (‘Max (B) = ‘, Max);

WriteLn (‘Max (B) — Min (B) = ‘, Max-Min);

End.

Предыдущая
Вопрос-ответ4 дм 2 см+2 дм 8 см-3 дм 8 см
Следующая
Вопрос-ответПротяженность древнего мира
Помогли? Поставьте оценку, пожалуйста.
Плохо
0
Хорошо
0
Супер
0
Спринт-Олимпик.ру
Мы в ВК, подпишись на нас!

Подпишись на нашу группу в ВКонтакте, чтобы быть в курсе выхода нового материала...

Вступить
×