Задачи Pascal

[BBorr1]

1 Найти сумму элементов квадратной матрицы, расположенных ниже побочной диагонали и произведение элементов, расположенных выше главной диагонали. Транспонировать исходную матрицу.
2 Дана матрица размерности N на M. Положительные элементы матрицы переписать подряд в одномерный массив В.
3 Дана действительная матрица размера n * m. Найти среднее арифметическое элементов каждой строки, имеющей четный номер.
4 Дана вещественная матрица размерности m * n. Определить индексы первого нулевого элемента матрицы. Обход матрицы осуществлять по столбцам.


Очень прошу помочь PASCAL

[VIK_aka_TOR]

за небольшую оплату сделаю все 4)))
стучи в аську)

[ByAlex]

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

1 Найти сумму элементов квадратной матрицы, расположенных ниже побочной диагонали и произведение элементов, расположенных выше главной диагонали. Транспонировать исходную матрицу.
2 Дана матрица размерности N на M. Положительные элементы матрицы переписать подряд в одномерный массив В.
3 Дана действительная матрица размера n * m. Найти среднее арифметическое элементов каждой строки, имеющей четный номер.
4 Дана вещественная матрица размерности m * n. Определить индексы первого нулевого элемента матрицы. Обход матрицы осуществлять по столбцам.


Очень прошу помочь PASCAL

Держи вторую, только она на Delphi! Если что, поправить, думаю, сможешь.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  A:array of array of Integer;
  B:array of Integer;
  i,j,N,M,t:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  t:=0;
  while not (N in [1..100]) do
  begin
    write('N = ');
    readln(N);
  end;
  while not (M in [1..100]) do
  begin
    write('M = ');
    readln(M);
  end;
  SetLength(A,N,M);
  Writeln('Matrix is - ');
  for i:=0 to N-1 do
  begin
    for j:=0 to M-1 do
    begin
      A[i,j]:=Random(30)-10;
      write(A[i,j],' ');
      if A[i,j]>=0 then
      begin
        SetLength(B,t+1);
        B[t]:=A[i,j];
        Inc(t);
      end;
    end;
    Writeln;
  end;
  Write('Massive B = ');
  for i:=0 to t-1 do
    write(B[i],' ');
  A:=nil;
  B:=nil;
  readln;
end.

[Hacker19_90]

4 Дана вещественная матрица размерности m * n. Определить индексы первого нулевого элемента матрицы. Обход матрицы осуществлять по столбцам.

flag := false;
for j := 1 to n do
begin
    for i := 1 to m do
        if a[i,j] = 0 then
        begin
            flag := true;
            Writeln (i:5,j:5);
            break;
        end;
    if flag then break;
end;
if not(flag) then writeln ('Нулевых не найдено!');

3 Дана действительная матрица размера n * m. Найти среднее арифметическое элементов каждой строки, имеющей четный номер.

for i := 1 to n do
begin
    sum := 0.0;
    if not(odd(i)) then
    begin
        for j := 1 to m do
            sum := sum + a[i,j];
        Writeln (sum/m);
    end;
end;

[ByAlex]

3-яя -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  A:array of array of Integer;
  i,j,N,M,t:Integer;
  SrSum:Real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  while not (N in [1..100]) do
  begin
    write('N = ');
    readln(N);
  end;
  while not (M in [1..100]) do
  begin
    write('M = ');
    readln(M);
  end;
  SetLength(A,N,M);
  Writeln('Matrix is - ');
  for i:=0 to N-1 do
  begin
    for j:=0 to M-1 do
    begin
      a[i,j]:=Random(30);
      write(a[i,j],' ');
    end;
    Writeln;
  end;
  t:=2;
  SrSum:=0;
  for i:=0 to (N div 2)-1 do
  begin
    for j:=0 to M-1 do
      SrSum:=SrSum+a[t-1,j];
    Writeln('Srednee arifmeticheskoe ',i+1,' stroki = ',(SrSum/M):3:2);
    SrSum:=0;
    t:=t*2;
  end;
  A:=nil;
  readln;
end.

[BBorr1]

да спасибо огромное но нужно в паскале

[ByAlex]

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

да спасибо огромное но нужно в паскале

Дак ты в Pascal закинь и посмотри ошибки, если что пиши.

[BBorr1]

A[i,j]:=Random(30)-10;

выдаёт ошибку, массив имеет другое колличество размерностей.

[Hacker19_90]

BBorr1
У вас какой компилятор?
Turbo Pascal, FPC, PascalABC, PascalABC.net

[ByAlex]

У меня нет под рукой компилятора pascal, поэтому не смогу проверить.