массивы

[Мария48]

Прошу вас помогите с информатикой не дружу (

1 задача:
Дан массив x(N).Найти сумму тех положительных элементов массива , которые предшествуют наибольшему элементу массива.

2 задача:

дан массив x(N,M) .Если первый элемент массива положительный, то найти сумму элементов среди четных строк массива, иначе произведение.

[Mad_Cat]

1)

im:=1;
for i:=1 to n do
if x[i]>x[im] then im:=i;
s:=0;
for i:=1 to im-1 do
if x[i]>0 then s:=s+x[i];

2)

if x[1,1]>0 then begin
s:=0;
for i:=1 to n do
for j:=1 to m do
if not odd(i) then s:=s+x[i,j];
end
else
 begin
s:=1;
for i:=1 to n do
for j:=1 to m do
if not odd(i) then s:=s*x[i,j];
end;

[Мария48]

а полностью 2 задача будет так выглядеть?

program lab1;
var x:array[1..10,1..20] of real;
i,j,n,m:integer;
begin
write ('ââåäèòå êîëëè÷åñòâî ñòðîê ìàññèâà n:=');
readln(n);
write('ââåäèòå êîëëè÷åñòâî ñòîëáöîâ n:=');
readln (m);
writeln('ââeäèòå ýëåìåíòû ìàññèâà ');
for i:=1 to n do
for j:=1 to m do
read (x[i,j]);

for i:=1 to n do begin
for j:=1 to m do
write (x[i,j] ,'':2);
writeln;
end;
if x[1,1]>0 then begin
s:=0;
for i:=1 to n do
for j:=1 to m do
if not odd(i) then s:=s+x[i,j];
end
else
begin
s:=1;
for i:=1 to n do
for j:=1 to m do
if not odd(i) then s:=s*x[i,j];
end;
end.

[hon]

Прочитайте правила форума по оформлению кода!

Как можно выкладывать такой код?

writeln('ââeäèòå ýëåìåíòû ìàññèâà ');

а полностью 2 задача будет так выглядеть?

Уже на блюдечке выложили, принесли. Осталось только взять в рот и съесть.