Паскаль!!!!!! Заполнить матрицу размерностью N на M по следующему принципу: Если номер строки больше номера столбца, то элемент равен номеру строки. Иначе – элемент равен произведению индексов. Выведите матрицу на экран.
Паскаль!!!!!!
Заполнить матрицу размерностью N на M по следующему принципу:
Если номер строки больше номера столбца, то элемент равен номеру строки.
Иначе – элемент равен произведению индексов.
Выведите матрицу на экран.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы