Получить на экране ЭВМ квадратную матрицу:

1 2 3 4 ...

2 4 6 8 ...

3 6 9 12 ...

...

Question

Информатика

Савина

18 февраля, 11:55

Получить на экране ЭВМ квадратную матрицу:

1 2 3 4 ...

2 4 6 8 ...

3 6 9 12 ...

...

+5

Ответы (1)

Знаете ответ?

Федюка · Answer 1

Const m=20;

var i, j, n: integer;

a: array[1 ... m, 1 ... m] of integer;

begin

write ('n = ') ; readln (n) ;

{ заполнение массива и вывод на экран}

for i:=1 to n do

for j:=1 to n do

begin

a[i, j]:=i*j;

write (a[i, j]:3,' ') ;

if j=n then writeln;

end;

end.

Получить на экране ЭВМ квадратную матрицу:1 2 3 4 ...2 4 6 8 ...3 6 9 12 ......

Получить на экране ЭВМ квадратную матрицу:

1 2 3 4 ...

2 4 6 8 ...

3 6 9 12 ...

...