Дан целочисленный двумерный массив n ** m. Удвоить каждый элемент данного массива....

Question

Дан целочисленный двумерный массив n на m. Удвоить каждый элемент данного массива. Полученный массив вывести на экран. Помогите пожалуйста!!!

Answer 1

Пишу на QBasic
CLS
DIM A(N,M)
...
Здесь заполнение массива
...
FOR I = 1 TO M
 FOR J = 1 TO N
  A(I,J)=2*A(I,J)
  PRINT A(I,J);
  PRINT  (" ");
 NEXT J
PRINT (" ")  
NEXT I

Comments

Спасибо, конечно, но мне нужно в FreePascal.