Сформировать одномерный массив, состоящий из n частей (Каждый элемент целое

Сформировать одномерный массив, состоящий из n элементов (Каждый элеме
нт целое число из диапазона от 0 до 15, создаваемое с подмогою генератора случайных чисел, nlt;=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 nlt;=20;
writeln;

for i:=1 to n do
begin
a[i]:=random(15);
if a[i]gt;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.
___
что я делаю не так?

Задать свой вопрос
1 ответ
Ну во-первых max:=a[1]; нужно задать после того как массив готов!

а заместо этого
 
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;
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт