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

[Базиля]

Земляку нужно помогать Деваться некуда.
Ну так, в твоем случае выводить кое-что надо
Кстати, по коду еще одну неточность нашел, нужно найти произведение положительных элементов, а не произведение элементов с четными индексами, также ситуация и с увеличением на 1

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
begin 
for i:=1 to n do
 if m[i]>0 then 
 mult:=mult*m[i];
end 
else
for i:=1 to n do
 if m[i]>0 then 
 m[i]:=m[i]+1;
for i:=1 to n do
write(m[i],' ');
 end.

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

спааасибо)))) Ураа! работает) Блин , спасибо реально) А то уже сил нету искать/делать это)))

[whatever]

Сообщение от Базиля

Кстати, по коду еще одну неточность нашел, нужно найти произведение положительных элементов, а не произведение элементов с четными индексами, также ситуация и с увеличением на 1

Хм, действительно, не обратил внимания.