Массив-матрица

[kat.l.a]

Массив-матрица

Задан вектор из A элементов и матрица размерностью O*P. В двумерном массиве умножить те элементы, кот имеют четную сумму индексов и превосходят ср арифм значение элементов вектора

 

[Vladimir_S]

В двумерном массиве умножить те элементы, кот имеют четную сумму индексов и превосходят ср арифм значение элементов вектора

НА ЧТО УМНОЖИТЬ ПРИКАЖЕТЕ?!!

 

[kat.l.a]

Нужно Утроить*

 

[Vladimir_S]

Нужно Утроить*

Нужно, так нужно... Пожалуйста:

Const
 A=15;
 O=8;
 P=12;

Var
 X:Array[1..A] of Integer;
 Y:Array[1..O,1..P] of Integer;
 X_M:Real;
 i,j:byte;

Begin
 Randomize;
 X_M:=0;
 Writeln('Vector:');
 for i:=1 to A do
  begin
   X[i]:=Random(15);
   Write(X[i]:4);
   X_M:=X_M+X[i]/A;
  end;
 Writeln;
 Writeln('Arithmetic mean = ',X_M:0:3);
 Writeln;
 Writeln('Initial matrix:');
 for i:=1 to O do
  begin
   for j:=1 to P do
    begin
     Y[i,j]:=Random(10);
     Write(Y[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 Writeln('New matrix:');
 for i:=1 to O do
  begin
   for j:=1 to P do
    begin
     if ((i+j) mod 2 = 0) and (Y[i,j]>X_M) then Y[i,j]:=Y[i,j]*3;
     Write(Y[i,j]:4);
    end;
   Writeln;
  end;
 Readln
End.

 

[kat.l.a]

огромное спасибо

 

[grelly]

X:Array[1..A] of Integer;
Y:Array[1..A,1..A] of Integer;

копипаст зло)

 

[Vladimir_S]

копипаст зло)

Спасибо, поправил!