Pascal ABC

[Fizik03]

Дан двомерный массив целых, положительных чисел Х[1..n,1..m] где
n, больше или равно 2, m, больше или равно 15 (n, m описываем как константы ). Заменить каждый элемент Xij масива, на число к. Интервал массива заполняется автоматически в интервале [10, 1000). Написать программу в которой используется процедура или функция


1 Вариант

k — число получено путём удаления с Xij цифр которые расположены на парных позициях.

2 Вариант

k — число получено путём возведения каждой цифры Xij к квадрату (Например 149 = 11681).

Заранее, большое спасибо!

[Hacker19_90]

наработки есть?

[Fizik03]

да есть, сейчас залью

[Fizik03]

program project;

const n = 2; m = 15;

var k,i,x,y: integer;
    F: array[1..n, 1..m] of integer;

procedure change(arr: array[1..n, 1..m] of integer);
 var x,y,n,digit,count: integer;
 begin
  for x:=1 to n do begin
    for y:=1 to m do begin
      n:= arr[x,y];
      count:= 0;
      while (n>0) do
       begin
         digit:= n mod 10;
         n:= n div 10;
       end;
      arr[x,y]:= ;
    end;
  end;
 end;

begin

  writeln('Начальный массив: ');
  for x:=1 to n do begin
    for y:=1 to m do begin
      F[x,y]:= random(990) + 10;
      write(F[x,y], '   ');
    end;
    writeln();
  end;

  change(F);

  writeln('Результат: ');
  for x:=1 to n do begin
    for y:=1 to m do begin
      write(F[x,y], '   ');
    end;
    writeln();
  end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.