Каждый элемент столбца матрицы разделить на диагональный, стоящий в том же столбце - Pascal ABC

  1. В матрице Z (n, n) каждый элемент столбца разделить на диагональный, стоящий в том же столбце. Исходный и скорректированный массивы вывести на экран.


textual

Код к задаче: «Каждый элемент столбца матрицы разделить на диагональный, стоящий в том же столбце - Pascal ABC»

const nmax=10;
var z:array[1..nmax,1..nmax] of real;
    n,i,j:integer;
    x:real;
begin
randomize;
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
    z[i,j]:=10*random;
    write(z[i,j]:6:2);
   end;
  writeln;
 end;
writeln('Преобразованная матрица');
for j:=1 to n do
 begin
  x:=z[j,j];
  for i:=1 to n do
  z[i,j]:=z[i,j]/x;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(z[i,j]:6:2);
  writeln;
 end;
end.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.000 из 5



Похожие ответы
  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Дана квадратная матрица порядка n. Обнулить элементы матрицы,лежащие одновременно выше главной и побочной диагоналей. Пожалуйста, СРОЧНО!!!

  1. Помогите исправить ошибку . Задание :Сформировать двумерный массив. Удалить из него строку и столбец, на пересечении которых находится минимальный элемент.

  1. Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями.

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию Обязательно сделать через процедуры Заранее благодарю

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.Добавлено через 3 часа 24 минуты

  1. Найти номер первого столбца, не содержащего ни одного элемента кратного 2.Добавлено через 3 часа 30 минут Дана действительная матрица размерности (n × n ). Найти номер первого столбца, не содержащего ни одного элемента кратного 2.

  1. Найти минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.

  1. Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!