Question

Решить задачу в паскале. ПОЖАЛУЙСТА Найти произведение кратных 5 элементов главной диагонали и количество нечетных элементов побочной диагонали матрицы Т(5,5).

Answer 1

Const n=5;
var 
t:array[1..n,1..n] of integer;
i,j,p,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  t[i,j]:=random(50);
  write(t[i,j]:4);
  end;
  writeln;
 end;
p:=1; k:=0;
for i:=1 to n do
 begin
 if t[i,i] mod 5 = 0 then p:=p*t[i,i];
 if t[i,n-i+1] mod 2 = 0 then k:=k+1;
 end;
writeln('p = ',p,' k = ',k);
end.

Пример:
Исходный массив:
30 16 33 25 4
23 2 11 14 45
11 29 22 48 6
36 21 35 37 4
27 14 44 13 29
p = 30 k = 3

Answer 2

Конечно, давайте решим эту задачу на языке программирования Pascal. Задача требует создания матрицы \(T\) размером \(5 \times 5\) и вычисления произведения кратных 5 элементов главной диагонали, а также подсчета количества нечетных элементов побочной диагонали.

Вот пример кода на Pascal:

program MatrixOperations;

const
  N = 5;

var
  T: array[1..N, 1..N] of Integer;
  i, j, mainDiagProduct, oddElemCount: Integer;

begin
  // Заполнение матрицы T(5,5)
  writeln('Введите элементы матрицы T(5,5):');
  for i := 1 to N do
    for j := 1 to N do
      readln(T[i, j]);

// Вывод матрицы T(5,5)
  writeln('Матрица T(5,5):');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(T[i, j]:4);
    writeln;
  end;

// Вычисление произведения кратных 5 элементов главной диагонали
  mainDiagProduct := 1;
  for i := 1 to N do
    if T[i, i] mod 5 = 0 then
      mainDiagProduct := mainDiagProduct * T[i, i];

// Подсчет количества нечетных элементов побочной диагонали
  oddElemCount := 0;
  for i := 1 to N do
    if T[i, N - i + 1] mod 2 <> 0 then
      oddElemCount := oddElemCount + 1;

// Вывод результата
  writeln('Произведение кратных 5 элементов главной диагонали: ', mainDiagProduct);
  writeln('Количество нечетных элементов побочной диагонали: ', oddElemCount);

readln;
end.

Этот код сначала запрашивает у пользователя ввод элементов матрицы \(T(5,5)\), затем выводит ее, вычисляет произведение кратных 5 элементов главной диагонали и подсчитывает количество нечетных элементов побочной диагонали. Наконец, результаты выводятся на экран.