Составить программу в ПаскалеМассив AM, N заполнить случайными числами из промежутка [-15--8] и подсчитать произведение элементов чётных строк. Исходны

составить программу в Паскале

Массив A(M,N) заполнить случайными числами из промежутка [-15;-8] и подсчитать произведение элементов  чётных строк.Исходный массив и результат вывести на экран

  • Вместо 20 можно подставить любое число, 20 соответствует M,N

    program new;
    var a:array [1..20,1..20] of integer; i,j,sum:integer;
    begin
    randomize;
    for i=1 to 20 do
    begin
    for j=1 to 20 do
    begin
    a[i,j]:=random(8)-15
    end;
    end;
    for i=2 to 20 do
    begin
    for j=1 to 20 do
    begin
    sum:=sum+a[i,j];
    i:=i+2;
    end;
    end;
    for i=1 to 20 do
    begin
    for j=1 to 20 do
    begin
    write(a[i,j]);
    end;
    writeln;
    end;
    writeln('Сумма равна ',sum:8);
    end.

    P.S.
    Делал без паскаля если какие то ошибки то пиши