Задача .....

[casperskii]

Помогите понять задачу ....

Прямоугольную матрицу А(m*n) преобразовать по правилу: если у матрицы меньше половины строк заканчивается нулевым элементом (т.е. Аi,n=0), то все отрицательные элементы матрицы умножить на 5, в противном случае все элементы с четными номерами строк увеличить на 10.
Необходимо использовать не менее одной подпрограммы-функции и подпрограммы-процедуры.


{ как сделать ?

Размер матрицы ввести с клавиатуры }


если это так x:array [1..3,.1..3] of integer ;

зарание спасибо !

[A_c_i_d]

{ как сделать ?

Размер матрицы ввести с клавиатуры }


если это так x:array [1..3,.1..3] of integer ;

нет это так:

var
   x: array[1..100,1..100] of integer;
   n,i,j: integer;
begin
   Write('Введите размер матирицы ');
   Readln(n);
   for i:=1 to n do
      for j:=1 to n do
      begin
      {Тут допустим вводим элементы матрицы}
      end;
   {А тут обрабатываем матрицу, так же в циклах}
end.

[ViktorR]

Можно рассмотреть и такой вариант(см. выше) - делаем большую матрицу и несколько подпрограмм:

Type Tmatr = array[1..100,1..100] of integer;
...
var matr1 : Tmatr;
n, m : integer; {m и n - глобальные переменные}
{но их можно добавить в вызовы процедур и функции}

function Zero(const matr : Tmatr) : boolean;
var i, j : integer; {строк, столбцов}
   z : integer;
begin
   z := 0;
{тут подсчитываем нули в хвостиках строк: z := z + 1;}
{Организуем вложенные циклы:
   один до m,
  а второй - до n}
if (z < (i div 2)) then
   Zero := true
else
   Zero := false;
end;
procedure Mull(k : integer; var matr : Tmatr);
var i, j : integer;
begin
   {тут умножаем все отрицательные элементы на k}
   {k - может быть не только 5}
{Организуем вложенные циклы:
    один до m,
    а второй - до n}
end;
procedure Add(k : integer; var matr : Tmatr);
var i, j : integer;
begin
   {тут добавляем к элементам k}
   {k - может быть не только 10}
{Организуем вложенные циклы:
    один до m,
    а второй - до n}
end;

...
begin
{заправшиваем m и n, указав, что они должны быть менее 100}
readln(m,n);
If ((m > 100) or (n > 100)) then begin
   {сообщаем об ошибке}
   Halt;
end;
{Заполняем матрицу данными}
{Так думаю, что следует использовать random}
if Zero(matr1) then
   Mull(5, matr1)
else
   Add(10, matr1);
...
{местами вставляем вывод матрицы на экран}
...
end.

Есть и другой способ, когда запрашиваются размеры матрицы и
матрицы создаются и обрабатываются в динамической памяти.
Но так кажется, что до этого варианта ещё не доросли
В общем, как то так.
PS: Естественно, что код представлен с определённой неопределённостью