Одномерные числовые массивы (Pascal)

[Семенов Валерий]

Всем доброго времени суток, у меня появилась проблема!
На носу отчисление , и я попадаю под раздачу...
Очень прошу помочь неродивому студенту.

Задача:
Если в массиве сумма элементов с четными номерами больше 50, найти произведение положительных элементов, иначе – увеличить на 1 положительные элементы.

Указания к задаче :
Ввод массивов осуществить в цикле при помощи генератора случайных чисел. Размерность массива задать с клавиатуры по желанию. Вывод массивов производите на чистом экране. Двумерные массивы выводите в виде таблиц.
Результаты решения вашей задачи выводите с пояснительными текстами, каждое с новой строки. Если в массиве произошли изменения по заданию, то необходимо еще раз вывести массив на экран.

Благодарю за внимание и потраченное время (надеюсь что это займет не много времени).

[whatever]

Описываешь массив m от 1 до n и поехали:

sum:=0;
mult:=1;
i:=2;
while i<=n do
  begin
    sum:=sum+m[i]
    i:=i+2;
  end;
i:=2;
if sum>50 then
  while i<=n do
    begin
      mult:=mult*m[i]
      i:=i+2;
    end;
else
  while i<=n do
    begin
      m[i]:=m[i]+1;
      i:=i+2;
    end;

[Семенов Валерий]

Спасибо большое , пошел разбиратся )))

[Семенов Валерий]

Cлушай , а ты не мог бы скинуть всю работу ( а то я запутался кажись ).

[Базиля]

Объяви переменные:

var sum,mult,i,n:integer;
m:array[1..10] of integer;
begin
readln(n);
for i:=1 to n do
readln(m[i]);
......
end.

[Семенов Валерий]

Спасибо еше раз !)
Ато я намудрил немного ...

[Семенов Валерий]

я не понимаю если честно, что должно выводится в этой программе??...( простите, что-то торможу ...)
у меня просто ничего не выводится ...
я поставил writeln (после mult:=mult*m[i] i:=i+2) и после (m[i]:=m[i]+1; i:=i+2) с выводом mult и m[i] , только у меня выводятся какие-то произвольные числа ...
Просто с одномерными массивами я в 1 раз сталкиваюсь и никто ничего подобного не делал,а мне сказали делать и завтра последний день когда можно сдать (до сегодняшнего дня ломал голову 3-4 дня)
Напишите пожалуйста полностью эту программу, просто уже сил нету((

[Семенов Валерий]

Как бы я не пытался , как-то не работает программа эта помойму ...

[Базиля]

Выложи то что ты там нахимичил.

[Семенов Валерий]

program val_1;
var sum,mult,i,n:integer;
m:array[1..10] of integer;
begin
readln(n);
for i:=1 to n do
readln(m[i]);
sum:=0;
mult:=1;
i:=2;
while i<=n do
  begin
    sum:=sum+m[i];
    i:=i+2;
  end;
i:=2;
if sum>50 then
  while i<=n do
    begin
      mult:=mult*m[i];
      i:=i+2;
    end
else
  while i<=n do
    begin
      m[i]:=m[i]+1;
      i:=i+2;
    end;
    end.