В одномерном массиве вставить минимальный элемент после последнего равному 0 - Turbo Pascal
Формулировка задачи:
Не могу до конца додумать в строках 29,30,31 помогите плиз!!
Решение задачи: «В одномерном массиве вставить минимальный элемент после последнего равному 0»
textual
Листинг программы
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.
Объяснение кода листинга программы
- Создается программа на языке Turbo Pascal.
- Создается переменная A, которая представляет собой одномерный массив целых чисел размером от 1 до 100.
- Задается переменная n, которая будет хранить количество элементов в массиве A, введенное пользователем.
- Выводится сообщение с запросом ввести количество элементов в массиве A.
- Выводится сообщение «Введите элементы массива».
- В цикле for i от 1 до n происходит следующее:
- выводится сообщение «a[»,i,»=»;
- считывается элемент массива A[i] и сохраняется в переменной a[i].
- обновляется переменная min, если текущий элемент меньше min.
- обновляется переменная k, которая будет указывать на позицию следующего элемента, равную 0, если текущий элемент равен 0.
- Если k равно 0, выводится сообщение «В массиве нет нулевых элементов».
- Если k не равно 0, выводится сообщение «Получаем исходный массив».
- Выводится сообщение «Элемент с индексом i+1» (где i - это текущий индекс).
- Выводится значение a[i+1].
- Если значение a[i+1] равно min, то выводится сообщение «В массиве нет нулевых элементов».
- Если значение a[i+1] не равно min, то выводится сообщение «В массиве есть нулевые элементы».
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д