Цитата:
Сообщение от SERGEI123
Я ЧЕСТНО СКАЗАТЬ САМ НЕ ПОНЯЛ. КАК ДУМАЕТЕ СДЕЛАЙТЕ ПОЖАЛУЙСТА.
|
А думаю я, что имеется в виду обычный массив. Не следует называть его "списком": список - это вполне определенная динамическая структура языка Паскаль.
Код:
Const
N=18;
Var
A:Array[1..N] of Byte;
i,i1,i2,Min,Max:Byte;
Begin
Randomize;
Min:=100;
Max:=0;
Writeln('Initial array:');
for i:=1 to N do
begin
A[i]:=Random(100);
Write(A[i]:4);
if A[i]<Min then
begin
i1:=i;
Min:=A[i];
end;
if A[i]>Max then
begin
i2:=i;
Max:=A[i];
end;
end;
Writeln;
Writeln;
if i2<i1 then
begin
i:=i1;
i1:=i2;
i2:=i;
end;
Writeln('New array:');
for i:=1 to i1 do write(A[i]:4);
for i:=i1+1 to i2-1 do write(A[i]+50:4);
for i:=i2 to N do write(A[i]:4);
Readln
End.