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

Question

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

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 maxif min>a[i] then min:=a[i];
end;
write(max-min);
end.