Procedure massiv;
var a:array[1..10] of integer;
i,max,min:integer;
begin
min:=1;
max:=1;
randomize;
for i:=1 to 10 do
<span> begin </span>
a[i]:=random(100);
<span> if a[i]<a[min] then min:=i; </span>
<span> if a[i]>a[max] then max:=i; </span>
<span> write(a[i],' '); </span>
<span> end; </span>
<span> writeln('Минимальное ', a[min], ' Максимальное ', a[max]); </span>
if min<max then
for i:= min+1 to max-1 do
write(a[i],' ') else
for i:= max+1 to min-1 do
write(a[i],' ')
end;
begin
massiv()
<span>end.</span>
Траектория движения таракана отображена во вложении(синяя линия). Как видно по рисунку, каждый раз, когда таракан ходит вправо, он сдвигает кубик на одну клетку вправо. Каждая позиция передвижения кубика отмечена числом.
Ответ: 4)<span>Е6</span>
Ответ:Hello,
Word!
Объяснение:После «Writeln» напишет «Hello,» курсор перейдёт на следующую строку,и на ней «Write» напишет «World!»(без перехода на следующую строку курсора).