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.
после выключения компьютера оперативная памят стерается, внешняя нет.
оперативная быстрее работает
Begin
Writeln('Унылая пора! Очей очарование!');
Writeln('Приятна мне твоя прощальная краса –');
Writeln('Люблю я пышное природы увядание,');
Writeln('В багрец и золото одетые леса.');
Writeln('А. С. Пушкин');
end.