Сформировать одномерный массив, состоящий из n элементов (каждый элеме нт – целое число из диапазона от 0 до 15, формируемое с генератора случайных чисел, n< =20 вводится с клавиатуры). вставить перед максимальным элементом число -5. если таких элементов несколько, то вставить перед каждым. program qw; var max, b, i, n, j : integer; a: array[1..45] of integer; begin max: =a[1]; b: =0; repeat write ('введите размерность массива n (не больше 20): '); read(n); until n< =20; writeln; for i: =1 to n do begin a[i]: =random(15); if a[i]> max then max: =a[i]; end; for i: =1 to n do write(a[i],' '); writeln; writeln('max = ',max); for i: =(1+b) to (n+b) do begin if a[i] = max then begin a[i+1]: =a[i]; a[i]: =-5; b: =b+1; end else a[i]: =a[i+b]; end; for i: =1 to n do write(a[i],' '); end. что я делаю не так?
а вместо этого
for i:=(1+b) to (n+b) do
begin
if a[i] = max then begin
a[i+1]:=a[i];
a[i]:=-5;
b:=b+1;
end
else
a[i]:=a[i+b];
end;
Попробуй это
b:=-50; for i:=1 to n do if a[i]:=max then a[i]:=a[i]+b;