Одномерный массив в Delphi

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

Всем доброго времени суток! Если кто знает как решаются эти задачи, помогите пожалуйста их сделать. Только сделать их нужно без использования процедур и функций.

Задача
В одномерном массиве, состоящем из n целых элементов вычислить:
1)номер максимального элемента массива;
2)произведение элементов массива, расположенных между первым и вторым нулевыми элементами
3)преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях, а во второй половине - элементы, стоявшие в четных позициях.

[Katus]

знаем. поможем.... по крайней мере алгоритмом

[Katus]

1. ввод массива
2. присваиваем переменной NМАХ номер первого элемента массива
3. прогоняем по массиву сравнивая значения элементов массива под номерами I и NMAX, при определенных условиях изменяя NMAX
4. Выводим

***

1. Ищем номер 1го и 2го нуля
2. Считаем произведение элементов между нулями

или

1. пока первый нуль не найден пропускаем, иначе (если нашли) считаем произведение до тех пор, пока не встретим нуль

***

1. создать еще 2 массива и если чет вписать в один, иначе в другой, а потом соответственно совместить с данным (знаю что тупо но работает)


***

будут задачи оптом - обращайся (недорого от 10 р с уч.комиссии на WM) =)

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

Спасибо за алгоритм, я щас попробую, но я не уверен что у меня это получится сделать.

[Katus]

удачи. если что обращайся. пожем(помогу)))

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

Можно как-то это решение подкорректировать чтобы получилась задача 2)произведение элементов массива, расположенных между первым и вторым нулевыми элементами

begin
     
       k:=1;
       m:=1;
       for i:=2 to n do
        if a[i]>a[k] then
          k:=i;
        if a[i]<min then
        begin
         min:=a[i];
         m:=i
        end;
      
       p:=1;
       if k<m then
        begin
         tmp:=k;
         k:=m;
         m:=tmp
        end;
       for i:=m+1 to k-1 do
       p:=p*a[i];
       if abs(k-m)>1 then
       writeln('p=',p);
      end;

[turok7770]

Ой я по ошибке на двумерный массив написал. Ну ты преподавателю покажи я думаю оценит. На одномерный все просто сам догадаешься

[turok7770]

1 задача

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
    mas:array[1..4,1..4] of integer;
    i,max,j,io,jo:Integer;

begin
  for i:=1 to 4 do
   for j:=1 to 4 do
    begin

      readln (mas[j,i]);
    end;

  for i:=1 to 4 do
   begin
     for j:=1 to 4 do
      begin
        write(mas[j,i]);
      end;
     Writeln;
   end;

  max:=Low(Integer);

  for i:=1 to 4 do
   for j:=1 to 4 do
    begin
      if mas[j,i] > Max then
       begin
         io:=i;
         jo:=j
       end;
    end;

  Writeln(i,'          ',j);
  Readln;

end.

[turok7770]

2 задача

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
    mas:array[1..4,1..4] of integer;
    i,j,g,otb,pr1:Integer;

begin
  for i:=1 to 4 do
   for j:=1 to 4 do
    begin

      readln (mas[j,i]);
    end;

  for i:=1 to 4 do
   begin
     for j:=1 to 4 do
      begin
        write(mas[j,i]);
      end;
     Writeln;
   end;

  g:=0;
  otb:=1;

  for i:=2 to 4 do
   for j:=2 to 4 do
    begin
      if (mas[j-1,i-1] = 0) and (mas[j+1,i+1] = 0) then
       begin
         pr1:=mas[j,i];
          g:=g+1;
           if g=1 then
            begin
              otb:=otb * pr1;
            end;
         g:=0;
       end;
    end;

  Writeln(otb);
  Readln;

end.

[xDess]

Здравствуйте.
Мне надо написать такую прогу на одномерный массив: "Дан одномерный ряд на 15 элементов. Возвести в квадрат все компоненты, следующие за первой отрицательной компонентой."
Но у меня есть проблема: У меня выводятся в ListBox1 15 рандомных чисел, а в ListBox2 числа из ListBox1, но не все числа после первого отрицательного возводятся в квадрат а только отрицательные. Т.е. после отрицательного числа положительные числа остаются как есть, а отрицательные возводятся в квадрат.
Дайте плиз исходник