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

[Proskurina]

Вставить нулевой элемент перед максимальным элементом в одномерном массиве.(через процедуры и функции)

[Stilet]

Наработки в студию.

[Proskurina]

нету ничего

[Sultan313]

Какая среда и язык хоть?

[Stilet]

http://www.programmersforum.ru/showthread.php?t=212249
Не стыдно?

[Proskurina]

паскаль.....

[Начинающий програм]

Может кому-то что-то и не понравится, но я сделал бы так

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, windows;
type
  mas=array[1..100] of integer;
var
  i,k,n,m:integer;
  a:mas;

procedure Vvod(var a:mas;var n:integer);
var i:integer;
begin
  write('Количество элементов в массиве: ');
  readln(n);
  for i:=1 to n do
    begin
      write('a[',i,']=');
      readln(a[i])
    end;
end;

function Maxznach(a:mas; n:integer):integer;
var i,max:integer;
begin
  max:=a[1];
  for i:=2 to n do
    if a[i]>max then
      begin
        max:=a[i];
        Maxznach:=i
      end
end;

procedure Vstavka(var a:mas;k,n:integer);
var i,c:integer;
begin
  for i:=1 to n do
    if a[i]=0 then
      begin
        c:=a[k-1];
        a[k-1]:=a[i];
        a[i]:=c
      end
end;

procedure Print(a:mas; n:integer);
var i:integer;
begin
  writeln('Результат!');
  for i:=1 to n do
     write(a[i],' ');
   readln;
   readln
end;

begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  Vvod(a,n);
  k:=Maxznach(a,n);
  Vstavka(a,k,n);
  Print(a,n)
end.