Квадратная матрица, заполнить нулями, диагонали единицами - Turbo Pascal

Формулировка задачи:

Write a program that asks the user to input dimension of 2- dimensional square array X, fills the array with o and 1 (filling the array all the elements are 0 except NW-SE and NE-SW diagonals) and outputs array to the screen.Write a special function for array generation and procedure for printing it to the screen. Добавлено через 39 секунд Напишите программу, которая предлагает пользователю ввода размерности 2 - мерный квадратный массив X, заполняет массив с о и 1 (заполняющего массив все элементы 0, кроме СЗ-ЮВ и СВ-ЮЗ диагоналей) и выходов массива на экран . Написать специальную функцию для генерации массива и процедуры для печати его на экран.

Код к задаче: «Квадратная матрица, заполнить нулями, диагонали единицами - Turbo Pascal»

textual
a[i,j]:=Byte((i=j) or (i+j=n+1));

10   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ