Заполнить матрицу 10х10 так, чтобы элементы главной диагонали и все, что над ней, были = 1, а остальные - 0. Вывести матрицу на экран. Паскаль
Ответы
Ответ дал:
1
Ответ:
program test;
var i, j: integer;
a: array [1..10,1..10] of integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if i<=j then a[i,j]:=1 else a[i,j]:=0;
write (a[i,j]:2)
end;
writeln
end
end.
Приложения:
![](https://st.uroker.com/files/bb1/bb1d3918b3367149b87e192c6019e405.jpg)
![](https://st.uroker.com/files/086/086fc906986b3844ccb62584fc98fb9b.jpg)
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад