паскаль!!!!!!
Заполнить матрицу размерностью N на M по следующему принципу:
Если номер строки больше номера столбца, то элемент равен номеру строки.
Иначе – элемент равен произведению индексов.
Выведите матрицу на экран.
Заполнить матрицу размерностью N на M по следующему принципу:
Если номер строки больше номера столбца, то элемент равен номеру строки.
Иначе – элемент равен произведению индексов.
Выведите матрицу на экран.
More Questions From This User See All
Answers & Comments
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.