Получить квадратную матрицу по правилу - Pascal ABC

  1. Даны действительные числа a1,a2,a3..an вводимые с клавиатуры. Получить квадратную матрицу порядка n: Заранее спасибо.


textual

Код:

const m = 10;
var a: array [1..m] of integer;
    b: array [1..m, 1..m] of integer;
    i, j, n: integer;
begin
  repeat
    write('n = ');
    readln(n);
    if (n < 1) or (n > m) then writeln('n out of range 1..', m, ', reenter.')
  until (n >= 1) and (n <= m);
  writeln('Enter numbers:');
  for i := 1 to n do
    begin
      write(i:2, ': ');
      readln(a[i])
    end;
  writeln('Result:');
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          b[i, j] := a[(i + j - 2) mod n + 1];
          write(b[i, j]:8)
        end;
      writeln
    end;
  readln
end.


Похожие ответы
  1. Помогите пожалуйста не могу написать прогу в паскале: дан файл f компоненты которого являются символами получить файл g образованный из файла f с исключением повторных вхождений одного и того же символа в паскале

  1. Требуется помощь по двумерным массивам в PascalABC. Никак не могу составить программу. Задание такое: "Сформирвать квадратную матрицу порядка n по заданному массиву" 1 0 0 0 0 6 0 2 0 0 5 0 0 0 3 4 0 0 0 0 3 4 0 0 0 2 0 0 5 0 1 0 0 0 0 6

  1. Дано натуральное число n. Получить последовательность b1, b2,…,bn, где при i=1,2,…,n значение bi равно: i2Добавлено через 22 часа 48 минут Помогите...так и не разобрался с задачей

  1. Дана действительная матрица размера n × m . Получить последовательность b1 ,..., bn , где bk – это наибольшее из значений k-ой строки

  1. Напишите программу, чтобы получить перевертыш целого четырехзначного числа n, введенного пользователем (вспомните, как разбить число на разряды с помощью операций div и mod)?

  1. Здравствуйте! Помогите, пожалуйста с задачей. Получить одномерный массив, состоящий из номеров максимальных элементов соответствующих строк матрицы. В полученном векторе решить задачу поиска 'количества четных элементов; Отсортировать в матрице строки по убыванию значений элементов в столбце с номером, заданным пользователем.

  1. Нужно заполнить (квадратную) матрицу a(n,n) числами натурального ряда в последовательности указанной на рисунке и вывести ее на экран. Pascal abc. Рисунок 37. Кто может киньте готовый код, пожалуйста, а то никак не могу понять как решать такое.

  1. Нужно заполнить (квадратную) матрицу a(n,n) числами натурального ряда в последовательности указанной на рисунке и вывести ее на экран. Pascal abc. Делал программу для вывода такой же матрицы с левого верхнего угла, но сделать такую не получается. Кто может киньте готовы код, пожалуйста.

  1. Дана действительная матрица [aij] i,j = 1, ..., n. Получить действительную матрицу [bij] i,j = 1, ..., n, элемент bij который равен сумме элементов данной матрицы, расположенных в области, определяемой индексами i,j так, как показано на рис. (область заштрихована). Сходным образом можно рассмотреть вместо суммы элементов их произведение, набольшее значение наименьшее значение.

  1. Даны натуральное число n, целые числа a1, x1, ... , xn. Если в последовательности x1, ... , xn есть хотя бы один член, равный a, то получить сумму всех членов, следующих за первым таким членом; в противном случае ответом должно быть число -10.