Сформировать двумерный массив из диагональных элементов матрицы - Pascal
Формулировка задачи:
Составить программу, которая формирует двумерный массив размеров 2*n из диагональных элементов задаваемого пользователем двумерного массива размером n*n.
Решение задачи: «Сформировать двумерный массив из диагональных элементов матрицы»
textual
Листинг программы
var a,b:array[1..20,1..20] of integer; n,i,j:integer; begin repeat write('Введите n от 2 до 20 n='); readln(n); until n in [2..20]; writeln('Массив А'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=10+random(90); write(a[i,j]:3); end; writeln; end; writeln('Массив В из диагональных элементов массива А'); for i:=1 to 2 do begin for j:=1 to n do begin b[1,j]:=a[j,j]; b[2,j]:=a[j,n-j+1]; write(b[i,j]:3); end; writeln; end; end.
Объяснение кода листинга программы
- Переменная
a
объявлена как двумерный массив (матрица) размером 20x20 целых чисел. - Переменная
b
объявлена как двумерный массив (матрица) размером 2x20 целых чисел. - Переменные
n
,i
иj
объявлены как целочисленные переменные. - В цикле
repeat
пользователю предлагается ввести значение переменнойn
от 2 до 20. - Если введенное значение
n
не соответствует условию, то пользователю выводится сообщение об ошибке и цикл повторяется. - В цикле
for
выводятся значения массиваa
построчно. - В каждой итерации внутреннего цикла массива
a
заполняются значениями от 10 до 99 с шагом 10. - В каждой итерации внешнего цикла выводится построчная информация о массиве
a
. - В цикле
for
выводятся значения массиваb
построчно. - В каждой итерации внутреннего цикла массива
b
заполняются значениями соответствующих элементов массиваa
. - В каждой итерации внешнего цикла выводится построчная информация о массиве
b
. - Цикл
repeat
завершается, когда пользователь вводит корректное значение переменнойn
. - Выводится сообщение о завершении работы программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д