В одномерном массиве вставить минимальный элемент после последнего равному 0

@Basill · Регистрация: 16.02.2013

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

Не могу до конца додумать в строках 29,30,31 помогите плиз!!

Pascal

program mas;
uses crt;
 
var A:array[1..100] of integer;
 
    i,k,n,min:integer;
begin
    clrscr;
    write('vvedite kolichestvo elementov massiva A = ');
    readln(n);
    writeln('vvedite elementi massiva');
    for i:=1 to n do
       begin
       write('a[',i,']=');
       readln(a[i]);
       end;
       
           min:=A[1];
           For i:=1 to n do
           Begin
            If a[i]<min then
              min:=a[i];
           End;
       
              k:=0;
              For i:=n downto 1 Do
               if A[i] =0 then
               begin
 
 
 
                 k:=1;
               end;
 
          if k=0 then
           writeln('V massive net chisela = 0')
           else
           begin
           writeln;
             writeln('Poluchivschiysya massiv');
             for i:=1 to n+1 do
              Writeln (A[i]);
           end;
    readln;
end.

@Mblp · 12.12.2013, 23:52

Pascal

program mas;
 
 
var A:array[1..100] of integer;
 
    i,k,n,min:integer;
begin
 
    write('vvedite kolichestvo elementov massiva A = ');
    readln(n);
    writeln('vvedite elementi massiva');
    for i:=1 to n do
       begin
       write('a[',i,']=');
       readln(a[i]);
       end;
       
           min:=A[1];
           For i:=1 to n do
           Begin
            If a[i]<min then
              min:=a[i];
           End;
       
              k:=0;
              For i:=n downto 1 Do
               if A[i] =0 then
               begin
 a[i+1]:=min;
 
 
                 k:=1;
               end;
 
          if k=0 then
           writeln('V massive net chisela = 0')
           else
           begin
           writeln;
             writeln('Poluchivschiysya massiv');
             for i:=1 to n+1 do
              Writeln (A[i]);
           end;
    readln;
end.

если я верно понял задание то вам просто не хватало a[i+1]:=min;

@Basill · 13.12.2013, 21:22 **[ТС]**

ну здесь он просто заменит i+1 элемент на 0, а в задании нужно вставить, т.е. сдвинуть массив и добавить 0 после минимального.

Добавлено через 9 часов 9 минут
аппп

Новичок · 13.12.2013, 23:17

Сообщение от Basill

т.е. сдвинуть массив и добавить 0 после минимального.

Сообщение от Basill

вставить минимальный элемент после последнего равному 0

Как это понимать?

@Basill · 14.12.2013, 10:35 **[ТС]**

Ой ну всмысле найдем минимальный в массиве и вставим его после последнего равному 0, но не заменив I+1 на 0 а сдвинем и добавим этот элемент

Добавлено через 1 минуту
Просто я когда тестил и минимальный в массиве был равен 0 вот и спутал)

Добавлено через 3 часа 35 минут
о все я доделал

Pascal

              k:=0;
              For i:=n downto 1 Do
                  if A[i] = 0 then
                   begin
                   A[i+1]:=min;
                   k:=1;
                   break;
                   end
                   else
                   A[i+1]:=A[i];

вот шо надо было

@Puporev · 14.12.2013, 10:52

Pascal

program mas;
uses crt;
var A:array[1..100] of integer;
    i,k,n,min:integer;
begin
clrscr;
write('vvedite kolichestvo elementov massiva A n=');
readln(n);
writeln('vvedite elementi massiva');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив');
for i:=1 to n do
write(a[i],' ');
writeln;
min:=A[1];
for i:=1 to n do
if a[i]<min then min:=a[i];
writeln('Минимальный элемент=',min);
k:=0;
i:=n;
while(i>=1)and(k=0) do
if A[i] =0 then k:=i
else i:=i-1;
if k=0 then  writeln('V massive net chisela = 0')
else
 begin
  n:=n+1;
  if k=n-1 then A[n]:=0
  else
   begin
    for i:=n downto k+2 do
    A[i]:=A[i-1];
    A[k+1]:=min;
   end;
  writeln('Poluchivschiysya massiv');
  for i:=1 to n do
  Write (A[i],' ');
 end;
readln;
end.

@Basill 40 / 40 / 34 Регистрация: 16.02.2013 Сообщений: 197
	13.12.2013, 21:22 [ТС]	3
	ну здесь он просто заменит i+1 элемент на 0, а в задании нужно вставить, т.е. сдвинуть массив и добавить 0 после минимального. Добавлено через 9 часов 9 минут аппп 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	13.12.2013, 23:17	4
	Сообщение от Basill т.е. сдвинуть массив и добавить 0 после минимального. Сообщение от Basill вставить минимальный элемент после последнего равному 0 Как это понимать? 0

	14.12.2013, 10:52

В одномерном массиве вставить минимальный элемент после последнего равному 0

Решение