Консультация № 197346
08.12.2019, 10:28
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Написать модуль, который формирует матрицу типа
1000
0100
0010
0001 (главная диагональ)
в паскале

Обсуждение

давно
Студент
402651
154
08.12.2019, 18:03
общий
это ответ
Здравствуйте, JonMoxley!

program formir;
Var a: array[1..50,1..50] of integer;
i, j, m, n: integer;
Begin
Write(‘сколько строк?’); Readln(m);
Write(‘сколько столбцов?’); Readln(n);
For i:=1 to m do
begin
For j:=1 to n do
begin
if i=j then a[i,j]:=1 else a[i,j]:=0;
write(a[i,j]);
end;
writeln;
End.
Форма ответа