Пожаловаться
- 04.03.2018 03:42
- Другие предметы
- remove_red_eye 6332
- thumb_up 18
Ответы и объяснения 1
Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 const nmax=20; var a:array[1..nmax,1..nmax] of integer; n,i,j:byte; begin repeat write('Размер матрицы от 2 до ',nmax,' n='); readln(n); until n in [2..nmax]; writeln('Матрица'); for i:=1 to n do begin for j:=1 to n do begin if j=i then a[i,j]:=n-i+1 else a[i,j]:=0; write(a[i,j]:3); end; writeln; end; end.
Пожаловаться
- 05.03.2018 13:11
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Другие предметы.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
В данном разделе публикуются вопросы и ответы на них к непопулярным предметам.
Новые вопросы
Интересные вопросы