Question

Удалить максимальный элемент из одномерного массива размерностью 10, заполненного с клавиатуры. вставить после минимального элемента ноль.

Answer 1

Program adikalok;
uses crt;
const n=10;
var
  a:array [1..10] of integer;
  i,min,max:integer;
begin
  writeln('*** alphaues is thinking... ***');
  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.