Удалить максимальный элемент из одномерного массива размерностью 10, заполненного с клавиатуры. вставить после минимального элемента ноль.
Ответы на вопрос:
program adikalok; uses crt; const n=10; var a: array [1..10] of integer; i,min,max: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); randomize; writeln('элементы массива: '); {создание и вывод массива} for i: =1 to n do begin a[i]: =random(100)-50; write (a[i]: 5); end; {ищем номера мин и мах} min: =1; max: =1; for i: =1 to n do begin if a[min]> a[i] then min: =i; if a[max]< a[i] then max: =i; end; if min< max then //min находится левее чем max begin for i: =max downto min+2 do a[i]: =a[i-1]; a[min+1]: =0; end else //min находится правее чем max begin for i: =max to min do a[i]: =a[i+1]; a[min]: =0; end; writeln(); writeln('результат: '); for i: =1 to n do write(a[i]: 5); end.
Популярно: Информатика
-
ibarabol31811.06.2021 16:22
-
kalabukhovalina18.07.2020 13:27
-
Esenbekmalika3013.04.2022 19:06
-
anjellalove09406.01.2023 09:49
-
Arianadrem06.05.2023 22:28
-
вика387514.03.2020 04:38
-
Лееееешаааа08.07.2021 18:42
-
A01AA022.04.2023 12:40
-
Atoom5130.10.2022 08:18
-
rusyabarnakov01.06.2021 19:29