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

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


textual

Код к задаче: «В одномерном массиве вставить минимальный элемент после последнего равному 0 - Turbo 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.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.400 из 5



Похожие ответы
  1. В массиве структур (записей) найти всех студентов, не имеющих двоек, и сформировать из них новый массив. Полученный массив упорядочить по возрастанию среднего балла. Структура (запись) содержит поля: фамилия, количество оценок, массив оценок (не более пяти), средний балл, который вычисляется при вводе данных. Вывести исходный и полученные массивы.

  1. Задайте n и m 3х4 допустим, получим массив заполненный 1234567, как сделать, чтобы заполнялся 1234321

  1. Составить программу. Задача. В двумерном массиве A(m,n) найти самое маленькое по модулю значение и вычесть его из всех элементов массива.

  1. Задача:Заполните массив случайными числами. Определить, есть ли в нем элементы с одинаковыми значениями, не обязательно стоящие рядом. У меня получилось так

  1. составить процедуру вычисления суммы четных по значению элементов в одномерном массиве

  1. составить функцию вычисления количества отрицательных элементов в одномерном массиве

  1. В массиве A найти произведение четных элементов и сумму квадратов нечетных элементов.

  1. Помогите, нужно найти кроме минимальных значений еще и максимальные (его адрес в массиве, и потом среди максимальных найти наибольшее значение).

  1. В произвольном одномерном массиве все элементы значения которых больше 5 заменить на 15. Вывести номера этих элементов и найти количество элементов которые не удовлетворяют данному условию

  1. Дан массив целых чисел, представленных в 8-ричной системе счисления. Осуществить перевод в 10-ричную и обратно. Вычислить индексы наибольшего и наименьшего чисел. Найти произведение чисел, расположенных в массиве правее наименьшего. Заранее спасибо за помощь.