Сформировать квадратную матрицу порядка n по заданному образцу - Turbo Pascal

  1. n 0 0 … 0 0 0 0 n-1 0 … 0 0 0 0 0 n-2 … 0 0 0 ………………………….. 0 0 0 … 0 2 0 0 0 0 … 0 0 1 заранее спасибо!


textual

Код:

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,x:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..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;
readln
end.


Похожие ответы
  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

  1. Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы. Все что находил все было не рабочим, помогите пожалуйста все-таки ее решить)

  1. В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

  1. Написать программу на TurboPascal. Задан случайными числами массив А. Сформировать новый массив С, который состоит из элементов массива А, которые превосходят свой номер на 10. одномерные массивы. помогите решить. Я уж и так и эдак, но ничего нормального даже близко не выходит.

  1. зарегистрироваться в файл двумерный A массив размером n*n. работу программы нужна начат с чтения матрицы из файла и Параллельно изображат на графическом экране. матрицу нужно изменять по следующему принципу,передвигая строку и столбец поместить Наибольший элемент матрицы на верхний левый угол' в nклетке (1,1) . тем же самым способом нужно поступить с матрицои , которая является производным от предыдущей, не принимая во внимание первую строку и столбец. Наибольший элемент второй матрицы должен появится в клетке (2,2).так продолжая сформировать главную диагональ матрицы

  1. Используя описание список = ^ звено звено = record элемент: тип элемента следующий список end Написать программу , которая формирует список L, включив в него по одному разу элементы, которые входят хотя бы в один из списков L1 и L2.

  1. Дана последовательность из строчных латинских букв. Сформировать множество, состоящее из первых вхождений букв в данную последовательность, сохраняя их исходный взаимный порядок.

  1. Задание во вложении. Ввод/вывод написал, помогите с формированием матрицы. Индексация именно с нуля должна быть.

  1. 3. Получить квадратную матрицу 6-ого порядка: 1 2 3 4 5 6 2 3 4 5 6 1 3 4 5 6 1 2 4 5 6 1 2 3 5 6 1 2 3 4 6 1 2 3 4 5