В массиве хранится информация о росте 25 человек. Определить, на сколь-ко рост самого высокого человека превышает рост самого низкого. НА С
Answers & Comments
444ерор444
Program z1; var a:array[1..25] of integer; Hmax,Hmin,i,R:integer; begin for i:=1 to 25 do readln(a[i]); Hmax:=a[1]; Hmin:=a[1]; for i:= 1 to 25 do begin if Hmax<a[i] then Hmax:=a[i]; if Hmin>a[i] then Hmin:=a[i]; end; R:=Hmax-Hmin; writeln(R); end.
Answers & Comments
var a:array[1..25] of integer;
Hmax,Hmin,i,R:integer;
begin
for i:=1 to 25 do readln(a[i]);
Hmax:=a[1];
Hmin:=a[1];
for i:= 1 to 25 do
begin
if Hmax<a[i] then Hmax:=a[i];
if Hmin>a[i] then Hmin:=a[i];
end;
R:=Hmax-Hmin;
writeln(R);
end.