Составить на языке Турбо Паскаль программу обработки одномерного массива (управление через меню)

[Wenia]

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

1)Из положительных элементов исходного массива сформировать новый массив;
2)Определить, что больше – сумма элементов, стоящих после максимального элемента, или сумма элементов, стоящих после минимального элемента.

Помогите пожалуйста, а то вообще ничего не понимаю( в информатике полный ноль)


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[DiamondTigeR]

Пиши мне на icq: 486120336
или в контакте: http://vk.com/diamondtiger_boss
это простенькая задачка

[rubius2008]

могу полностью все сделать, но не бесплатно, если что пишите в асю

[domovou]

type
    mas=array[1..10000] of integer;
var
    a:mas;
    w,n:integer;
    s:string[1];
procedure soz(var a:mas;var n:integer);
var i:integer;
begin
write('Kol-vo elementov - ');readln(n);
for i:=1 to n do
    begin
    write('a[',i,'] - ');
    readln(a[i]);
    end;
end;

procedure print(a:mas;n:integer);
var i:integer;
begin
for i:=1 to n do
    write(a[i],' ');
readln;
end;

procedure z1(a:mas;n:integer);
var i,m:integer;
    b:mas;
begin
m:=0;
for i:=1 to n do
    if a[i]>0 then begin inc(m); b[m]:=a[i];end;
for i:=1 to m do
    write(b[i],' ');
readln;
end;

procedure z2(a:mas;n:integer);
var min,imin,max,imax,s,s2,i:integer;
begin
min:=a[1];
max:=a[1];
for i:= 1 to n do
    begin
    if a[i]>max then begin max:=a[i];imax:=i; end;
    if a[i]<min then begin min:=a[i]; imin:=i; end;
    end;
s:=0;s2:=0;
if imax<>n then
   for i:=imax+1 to n do
       s:=s+a[i];
if imin<>n then
   for i:=imin+1 to n do
       s2:=s2+a[i];
if s>s2 then writeln('Symma posle max > symmi posle min')
   else  writeln('Symma posle max < symmi posle min');
readln;
end;

BEGIN
w:=10;
writeln;
while w<>0 do
      begin
      writeln('1-soz');
      writeln('2-print');
      writeln('3-zad1');
      writeln('4-zad2');
      writeln('0-vixod');
      write('Vash vibor - ');readln(w);
      case w of
           1:soz(a,n);
           2:print(a,n);
           3:z1(a,n);
           4:z2(a,n);
           0:begin
                  write('Vi yvereni (Y/N) - ');readln(s);
                  if s='N' then w:=10;
             end;
           end;
      end;
END.

[Wenia]

domovou , спасибо большое)) Но т.к. я блондинка - это ты мне ответ на какую задачу написал. (мне стыдно, за что что я глупа в вопросах программирования)

[domovou]

Wenia, это программа включает в себя все

   1:soz(a,n);  {1) ввод одномерного массива;}
           2:print(a,n);  {2) вывод одномерного массива ;}
           3:z1(a,n);     {3) обработка одномерного массива (задача 1) с выдачей результатов;}
           4:z2(a,n);     {4) обработка одномерного массива (задача 2) с выдачей результатов;}
           0:begin           {5) выход из программы (с подтверждением).}
                  write('Vi yvereni (Y/N) - ');readln(s);
                  if s='N' then w:=10;
             end;

[Wenia]

domovou, ок))
Я совсем наглею, но можешь объяснить, где какая из задач??(мне просто ее надо по алгоритму расписать =-=")

[domovou]

type
    mas=array[1..10000] of integer;
var
    a:mas;
    w,n:integer;
    s:string[1];
{процедура ввода одномерного массива}
procedure soz(var a:mas;var n:integer);
var i:integer;
begin
write('Kol-vo elementov - ');readln(n);
for i:=1 to n do
    begin
    write('a[',i,'] - ');
    readln(a[i]);
    end;
end;
{процедура печати массива}
procedure print(a:mas;n:integer);
var i:integer;
begin
for i:=1 to n do
    write(a[i],' ');
readln;
end;
{процедура обработки}
{1)Из положительных элементов исходного массива
сформировать новый массив;}
procedure z1(a:mas;n:integer);
var i,m:integer;
    b:mas;
begin
m:=0;
for i:=1 to n do {}
    if a[i]>0 then begin inc(m); b[m]:=a[i];end;
for i:=1 to m do  {}
    write(b[i],' ');
readln;
end;
{процедура обработки}
{Определить, что больше – сумма элементов,
стоящих после максимального элемента,
или сумма элементов, стоящих после
минимального элемента.}
procedure z2(a:mas;n:integer);
var min,imin,max,imax,s,s2,i:integer;
begin
min:=a[1];
max:=a[1];
for i:= 1 to n do
    begin
    if a[i]>max then begin max:=a[i];imax:=i; end;
    if a[i]<min then begin min:=a[i]; imin:=i; end;
    end;
s:=0;s2:=0;
if imax<>n then
   for i:=imax+1 to n do
       s:=s+a[i];
if imin<>n then
   for i:=imin+1 to n do
       s2:=s2+a[i];
if s>s2 then writeln('Symma posle max > symmi posle min')
   else  writeln('Symma posle max < symmi posle min');
readln;
end;
{}
BEGIN
w:=10;
writeln;
while w<>0 do
      begin
      writeln('1-soz');
      writeln('2-print');
      writeln('3-zad1');
      writeln('4-zad2');
      writeln('0-vixod');
      write('Vash vibor - ');readln(w);
      case w of
           1:soz(a,n);{вызываем процедуру ввода}
           2:print(a,n);{вызываем процедуру печати}
           3:z1(a,n); {вызываем процедуру обработки (задача 1)}
           4:z2(a,n); {вызываем процедуру обработки (задача 2)}
           0:begin
                  write('Vi yvereni (Y/N) - ');readln(s);
                  if s='N' then w:=10;
             end;
           end;
      end;
END.

[Wenia]

domovou, спасибо-спасибо-спасибо!!! :-*