Дополнить код выводом исходной матрицы - Pascal ABC
Формулировка задачи:
Помогите вот эту программку сделать так чтобы она мне выводила на экран, вводимые с клавиатуры элементы в виде матрицы ДО ответа
Решение задачи: «Дополнить код выводом исходной матрицы»
textual
Листинг программы
program zadacha6; const n=5; var a: array[1..n,1..n] of integer; i,j: byte; max: integer; b: array[1..n,1..n] of real; begin randomize; writeln('ishodniy massiv: '); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(19)-9; write(a[i,j]:3); end; writeln; end; max:=abs(a[1,1]); for i:=1 to n do for j:=1 to n do if abs(a[i,j])>max then max:=abs(a[i,j]); writeln('resultat: '); for i:=1 to n do begin for j:=1 to n do begin b[i,j]:=a[i,j]/max; write(b[i,j]:4:0); end; writeln(^j); end; readln end.
Объяснение кода листинга программы
- Объявлены переменные: n - размерность матрицы, a - матрица целых чисел, i, j - индексы для обхода матрицы, max - максимальное значение элементов матрицы, b - матрица дробных чисел.
- Задана исходная матрица. В цикле выводятся все элементы матрицы a с шагом 3.
- Находится максимальное значение элементов матрицы a.
- В цикле вычисляются значения элементов матрицы b путем деления каждого элемента матрицы a на максимальное значение.
- Выводятся все элементы матрицы b с шагом 4 и с выравниванием по правому краю.
- Завершается выполнение программы.