В массиве хранится информация о росте 25 человек. Определить, насколько рост самого высокого человека превышает рост самого низкого.

Question

Информатика

Асафий

9 декабря, 05:55

В массиве хранится информация о росте 25 человек. Определить, насколько рост самого высокого человека превышает рост самого низкого.

+1

Ответы (1)

Знаете ответ?

Нона · Answer 1

Program z1;

var a:array [1 ... 25] of integer;

i, max, min:integer;

begin

read (a[1]) ;

max:=a[1];

min:=a[1];

for i:=2 to 25 do

begin

read (a[i]) ;

if max
if min>a[i] then min:=a[i];

end;

write (max-min) ;

end.