Паскаль!

Заполнить матрицу размерностью N на M по следующему принципу:

Если номер строки больше номера столбца, то элемент равен номеру строки.

Иначе - элемент равен произведению индексов.

Выведите матрицу на экран.

Question

Информатика

Гера

16 сентября, 07:27

Паскаль!

Заполнить матрицу размерностью N на M по следующему принципу:

Если номер строки больше номера столбца, то элемент равен номеру строки.

Иначе - элемент равен произведению индексов.

Выведите матрицу на экран.

+4

Ответы (1)

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

Юния · Answer 1

Const

N = 5;

M = 10;

Var

A : array[1 ... N, 1 ... M] of Integer;

i, j : Byte;

Begin

For i:=1 to N do

Begin

For j:=1 to M do

Begin

If i>j then A[i, j]:=i else A[i, j]:=i*j;

Write (a[i, j]:6) ;

end;

Writeln;

end;

end.