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

program z1;var a:array[1..25] of integer;Hmax,Hmin,i,R:integer;beginfor i:=1 to 25 do readln(a[i]);Hmax:=a[1];Hmin:=a[1];for i:= 1 to 25 dobeginif Hmax<a[i] then Hmax:=a[i];if Hmin>a[i] then Hmin:=a[i];end;R:=Hmax-Hmin;writeln(R);end.