Технический форум - Массив-матрица

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Массив-матрица (http://www.tehnari.ru/f43/t250864/)

kat.l.a

19.12.2016 10:30

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

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

Vladimir_S

19.12.2016 10:35

Цитата:

Сообщение от kat.l.a (Сообщение 2445666)

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

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

kat.l.a

19.12.2016 10:39

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

Vladimir_S

19.12.2016 11:05

Цитата:

Сообщение от kat.l.a (Сообщение 2445669)

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

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

Код:

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

19.12.2016 11:24

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

grelly

19.12.2016 13:50

Цитата:

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

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

Vladimir_S

19.12.2016 14:18

Цитата:

Сообщение от grelly (Сообщение 2445716)

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

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

Часовой пояс GMT +4, время: 14:19.