Program Pr1;
uses crt;
var mas:array[1..15] of integer;
i,max,min,b,v:integer;
Begin
clrscr;
for i:=1 to 15 do mas[i]:=random(10);
for i:=1 to 15 do write(mas[i]);
max:=0;
min:=100000;
b:=0;
for i:=1 to 15 do begin
if mas[i]>max then max:=i;
if mas[i]<min then min:=i;
end;
if max>min then for i:=min to max div 2 do begin
v:=mas[max-b];
mas[max-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end
else for i:=max to min div 2 do begin
v:=mas[min-b];
mas[min-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end;
writeln();
for i:=1 to 15 do write(mas[i]);
end.
var
a: array [1..10] of integer; //Массив из 10 целочисленных элементов
i: integer;
begin
write('Исходный массив: ');
for i:= 1 to 10 do {Заполняем массив случайными числами от 0 до 4 и печатаем его}
begin
a[i]:= random(4);
write(a[i], ' ');
end;
writeln; //Перевод на новую строку
write('Одинаковые соседние элементы: ');
for i:= 1 to 9 do //Печатаем одинаковые соседние элементы
if a[i] = a[i + 1] then write('a[', i, '] = a[', i + 1, '], ');
writeln; {Перевод на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
Решение представлено во вложениях.
Язык: Pascal | Python