Нужна помощь (задача с массивом)...

[Tosa]

Дан двумерный массив М, состоящий из целых чисел ((-1,5,8,0,11), (1,7,-15,4,0),(3,-4,10,0,16)).
9)Найти отношение сумм элементов 1 и 5-го столбцов.


Program mass;
uses crt;
const
M: array [1..3,1..4] of integer =((-1,5,8,0,11)(1,7,-15,4,0)(3,-4,10,0,16));
Var
s,s2,i,j,k: integer;
a: real;
BEGIN
clrscr;
s:=0;
s2:=0;
j:=1
for i:=1 to 3 do
s:=s+ M[i,j];
begin
j:=5
for i:=1 to 3 do
s2:=s2+ M[i,j];
end;
a:=s/s2;
writeln(‘Otnocnenie sum 1 u 5-go stolbcov=’,a:4:2);
readln;
END.

[Tosa]

Подмогните не въезжаю!!!

Дан одномерный массив М, состоящий из 10 целых чисел (10,12,0,15,-5,4,-15,3,0,11).
4)Найти количество и сумму элементов, следующих за элементами, равными нулю

[lexus_ilia]

ну, т.к. тут написано за элементами равными 0, то значит проверяем от 1 до последнего элемента массив, если элемент массива равен 0, то начинаем цикл от нашего 0-ля до последнего элемента, суммируем все и суммируем колличество, выводим... переходим к следующему элементу массива, если 0 то... ( и так вот оно повторяется)...

[alex_fcsm]

var i,j,sum:integer;
    a:array[1..20] of integer;
begin
randomize;
for i:=1 to 20 do
 begin
  a[i]:=random(10)-5;
  write(a[i],' ');
 end;
writeln;
sum:=0;j:=0;
for i:=1 to 19 do
 if a[i]=0 then begin
                 inc(j);
                 sum:=sum+a[i+1];
                end; 
writeln(j);
writeln(sum);
end.

[Tosa]

[QUOTE=alex_fcsm;161873][CODE]var i,j,sum:integer;
a:array[1..20] of integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(10)-5; /////любое целое число из десяти??
write(a[i],' ');
end;
writeln;
sum:=0;j:=0;
for i:=1 to 19 do
if a[i]=0 then begin
inc(j); ///// Увеличивает на 1 т.е.j:=j+1 ????
sum:=sum+a[i+1];
end;
writeln(j);
writeln(sum);
end.

[Tosa]

Дан одномерный массив М, состоящий из 10 целых чисел (10,12,0,15,-5,4,-15,3,0,11).
3)Найти отношение произведений ненулевых элементов первой и второй половин массива.

[alex_fcsm]

const n=10;
var a:array[1..n]of integer;
    multF,multS:integer;
    i:integer;
begin
randomize;
for i:=1 to n do
 begin
 a[i]:=random(10);
 write(a[i],' ');
 end;
 writeln;
multF:=1;multS:=1;
for i:=1 to n do
 if i <= (n div 2) then begin
                       if a[i]<>0 then multF:=multF*a[i]
                       end
    else if a[i]<>0 then multS:=multS*a[i];
writeln(multF/multS:3:3);
end.

[Tosa]

Я так понимаю отношение это надо multF разделить на multS??
И второе if i <= (n div 2) then - разделяет на две части??

[alex_fcsm]

Сообщение от Tosa

Я так понимаю отношение это надо multF разделить на multS??
И второе if i <= (n div 2) then - разделяет на две части??

Вы все правильно понимаете(n div 2 - предполагаемая середина)

[Tosa]

Извеняюсь за настойчивость

begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
end;

что этот оператор делает???