Два элемента: 1 - после максимального элемента, 2 - перед ним (немогу сделать по аналогии)

@Best-pm07 · Регистрация: 19.03.2009

Студворк — интернет-сервис помощи студентам

Помогите сделать следующее задание:

Составить программу решения задачи на Паскале, использовать процедуры введения и вывода массивов, выделить в задаче вспомогательные алгоритмы и оформить их в виде подпрограмм.
Вставить два элемента: первый - после максимального элемента, второй - перед ним.

Вот похожее задание:
(Вставить число 100 после пятого элемента массива)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Program Example;
Const n=10; dd=51;
Type myarray=Array[1..n+1] Of Integer;
Var A: myarray;
x, k:Integer;
{x - значение нового элемента k - номер элемента, после которого вставляем}
Procedure Init2(Var m: myarray); 
{Процедура заполнения (инициализации) массива случайными числами}
Procedure Printl(nl: Integer; m: myarray); 
{Процедура вывода (распечатки) массива}
Procedure Insertl(kl, xl: Integer; Var m: myarray);
Var i: Integer;
Begin
{Сдвиг элементов на одну позицию назад} 
 For i:=n Downto kl+1 Do m[i+1]:=m[i]; 
 m[kl+l]:=xl;
{Вставка элемента после kl-го} 
End;
Begin
Init2(A);
Printl(n,A);  {Вывод начального массива из n элементов} 
  Writeln('Номер элемента, после которого вставлять, ');
Writeln('и значение нового элемента'); 
Readln(k,х); 
Insertl(k,х,А); 
Printl(n+1,А);{Вывод массива после вставки нового элемента} 
Readln; 
End.

Спасибо.

Добавлено через 15 минут 32 секунды
Нашел ещё похожее:
(выводит на экран те элементы заданного массива, которые расположены после максимального элемента всего массива.)
Делал Юрий Puporev

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt; {модуль для работы с клавиатурой, звуком и экраном. Мы применяем для очистки экрана}
const nmax=50;{максимальный размер массива, можно любой}
var a:array[1..nmax] of integer;{тип массива-целые числа}
    n,i,max,imax:integer;
begin
clrscr;{очищаем экран от старых записей}
repeat {в цикле вводим размер и прверяем чтоб не вылезти за границы}
write('Razmer massiva n=');
readln(n);
until (n>0)and(n<=nmax);
writeln('Vvedite ',n,' elementov massiva:');
for i:=1 to n do
  begin
    write('a[',i,']=');
    readln(a[i]);{присваиваем значения элементам массива}
  end;
clrscr;{очищаем экран от ввода}
writeln('Ishodnyj massiv:');
for i:=1 to n do
write(a[i],' ');{выводим массив в строку через пробел}
writeln;
max:=a[1];imax:=1;{считаем что максимальный первый и его номер 1}
for i:=2 to n do {идем дальше по массиву}
if a[i]>max then{если находим число большее предыдущего максимума}
  begin
    max:=a[i];{то это максимум}
    imax:=i;{запоминаем его номер}
  end;
writeln('Rezultat:');
for i:=imax+1 to n do {от числа за максимальным до конца}
write(a[i],' ');{выводим массив в строку через пробел}
readln
end.

@Splitter · 26.03.2009, 11:54

попробуйте так, не проверял, но должно сработать, в крайнем случае идея понятна...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Program Example;
Const n=10; dd=51;
Type myarray=Array[1..n+2] Of Integer;
Var A: myarray;
x, k, max,p,o:Integer;
{x - значение нового элемента k - номер элемента, после которого вставляем}
Procedure Init2(Var m: myarray); 
{Процедура заполнения (инициализации) массива случайными числами}
Procedure Printl(nl: Integer; m: myarray); 
{Процедура вывода (распечатки) массива}
 
Procedure Insertl(p, o, max: Integer; Var m: myarray);
Var i: Integer;
Begin
for i:=n+2 downto max+1 do m[i]:=m[i-2];
m[max-1]:=p;
m[max+1]:=o;
End;
 
Begin
Init2(A);
Printl(n,A);  {Вывод начального массива из n элементов} 
max:=1;
for i:=2 to n do if a[i]>a[max] then max:=i; 
 
Writeln('введите элемент который вставляем до максимального');
Readln(p);
 
Writeln('введите элемент который вставляем после максимального');
Readln(o);
 
Insertl(p,o,max,А); 
Printl(n+1,А);{Вывод массива после вставки нового элемента} 
Readln; 
End.

Добавлено через 47 секунд
попробуйте так, не проверял, но должно сработать, в крайнем случае идея понятна...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Program Example;
Const n=10; dd=51;
Type myarray=Array[1..n+2] Of Integer;
Var A: myarray;
x, k, max,p,o:Integer;
{x - значение нового элемента k - номер элемента, после которого вставляем}
Procedure Init2(Var m: myarray); 
{Процедура заполнения (инициализации) массива случайными числами}
Procedure Printl(nl: Integer; m: myarray); 
{Процедура вывода (распечатки) массива}
 
Procedure Insertl(p, o, max: Integer; Var m: myarray);
Var i: Integer;
Begin
for i:=n+2 downto max+1 do m[i]:=m[i-2];
m[max-1]:=p;
m[max+1]:=o;
End;
 
Begin
Init2(A);
Printl(n,A);  {Вывод начального массива из n элементов} 
max:=1;
for i:=2 to n do if a[i]>a[max] then max:=i; 
 
Writeln('введите элемент который вставляем до максимального');
Readln(p);
 
Writeln('введите элемент который вставляем после максимального');
Readln(o);
 
Insertl(p,o,max,А); 
Printl(n+1,А);{Вывод массива после вставки нового элемента} 
Readln; 
End.

@Best-pm07 · 26.03.2009, 12:10 **[ТС]**

В программе ошибки, исправил, но вот последнюю не могу - не знаю как

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Program Example;
uses wincrt;
Const n=10; dd=51;
Type myarray=Array[1..n+2] Of Integer;
Var A: myarray;
x, k, max,p,o, i:Integer;
Procedure Init2(Var m: myarray);
Procedure Printl(nl: Integer; m: myarray);
Procedure Insertl(p, o, max: Integer; Var m: myarray);
Var i:Integer;
Begin
for i:=n+2 downto max+1 do m[i]:=m[i-2];
m[max-1]:=p;
m[max+1]:=o;
End;
Begin
Init2(A);
Printl(n,A);
max:=1;
for i:=2 to n do if a[i]>a[max] then max:=i;
Writeln('введите элемент который вставляем до максимального');
Readln(p);
Writeln('введите элемент который вставляем после максимального');
Readln(o);
Insertl(p,o,max, a);
Printl(n+1,a);
Readln;
end.

Ошибка в последней строчке:

Error 85: ";" expected

@Puporev · 26.03.2009, 12:12

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Program Example;
uses crt;
const n=20; {размер исходного массива}
      e1=50;e2=70;{числа для вставки}
type myarray=array[1..n+2] of integer;{максимальный размер массива}
procedure Init2(var m:myarray);{создание и вывод исходного массива}
var i:integer;
begin
writeln('Ishodnyj massiv:');
for i:=1 to n do
  begin
    m[i]:=random(20);
    write(m[i],' ');
  end;
writeln;
writeln;
end;
procedure Printl(nl:integer;imax:integer; var m: myarray);{вывод результата}
var i:integer;
begin
for i:=1 to nl do
 if i=imax+1 then{если это максимальный}
   begin
    textcolor(12);{выделим ярко-красным}
    write(m[i],' ');
   end
else if (i=imax)or(i=imax+2)then
   begin
    textcolor(14);{перед ним и после него - желтым}
    write(m[i],' ');
   end
else
   begin
    textcolor(15);{остальные белым(или тем который используется по умолчанию)}
    write(m[i],' ');
   end;
end;
procedure Max(m:myarray; var imax:integer);{поиск номера максимального}
var i,max:integer;
begin
max:=m[1];
for i:=2 to n do
if m[i]>max then
  begin
    max:=m[i];
    imax:=i;
  end;
end;
procedure Insert(imax:integer;var nl:Integer; var m:myarray);{вставка элементов}
var i:integer;
begin
nl:=n+2;{новая длина массива}
{posle}
for i:=nl-1 downto imax+1 do m[i]:=m[i-1];
m[imax+1]:=e1;
{pered}
for i:=nl downto imax do m[i]:=m[i-1];
m[imax]:=e2;
end;
var a:myarray;
    imax,n1:Integer;
begin
clrscr;
randomize;
Init2(A);
Max(A,imax);
writeln('Номер максимального элемента=',imax);
writeln;
Insert(imax,n1,A);
Printl(n1,imax,A);
readln
end.

@Best-pm07 · 26.03.2009, 12:37 **[ТС]**

Puporev, cgfcb,j большое
программу посмотрел и разобрался, но слишком уже очень большая она
я программирую на Borland Pascal 7.0, поэтому такое как
clrscr; и textcolor; у меня не работают

это я поубирал, то вот просто сильно уж сложно написана программа, вообще предполагается что элементы будут водиться с клавиатуры

Незнаю даже, но попробую как-нибудь переделать вашу программу и убрать случайный выбор цифр

Спасибо вам.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Best-pm07 ..:::BesT:::.. 8 / 8 / 5 Регистрация: 19.03.2009 Сообщений: 195
	26.03.2009, 12:37 [ТС]
	Puporev, cgfcb,j большое программу посмотрел и разобрался, но слишком уже очень большая она я программирую на Borland Pascal 7.0, поэтому такое как clrscr; и textcolor; у меня не работают это я поубирал, то вот просто сильно уж сложно написана программа, вообще предполагается что элементы будут водиться с клавиатуры Незнаю даже, но попробую как-нибудь переделать вашу программу и убрать случайный выбор цифр Спасибо вам. 0