Найти наибольшее значении в строке матрицы, если на побочной диагонали число простое - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Есть квадратная матрица, найти наибольшее значении в строке если на побочной диагонали число простое. Собственно нужна помощь в нахождении максимума, сам бы сделал но уже голова пухнет, кому не лень решить простую задачку, прошу помочь.

Решение задачи: «Найти наибольшее значении в строке матрицы, если на побочной диагонали число простое»

textual
Листинг программы
const N=20;
var a:array[1..N,1..N] of byte;
    dlin,kd,r,i,j,max,k:integer;
begin
randomize;
write('Введите размер матрицы: ');
readln(dlin);
for I := 1 to dlin do
 begin
  for j := 1 to dlin do
   begin
    A[i,j]:=random(100)+2;
    write(A[i,j]:4);
   end;
  writeln;
 end;
k:=0;
for i:= 1 to dlin do
 begin
  kd:=0;
  j := A[i, (dlin - i + 1)];
  for r := 1 to j do
  if (j mod r=0) then  inc(kd);
  if kd=2 then
   begin
    k:=1;
    Max:=A[i,1];
    for j:=2 to dlin do
    if A[i,j]>Max then Max:=A[i,j];
    writeln('Строка ',i,' Max=',Max);
   end;
 end;
if k=0 then write('На побочной диагонали нет простых чисел')
end.

Объяснение кода листинга программы

  1. Объявлены переменные: N, a, dlin, kd, r, i, j, max, k.
  2. Вводится размер матрицы.
  3. Заполняются элементы матрицы случайными числами.
  4. Выводится на экран заполненная матрица.
  5. Инициализируется счётчик k=0.
  6. В каждой строке матрицы проверяется, является ли число на побочной диагонали простым.
  7. Если на побочной диагонали найдено простое число, то находится максимальное значение в строке.
  8. Выводится на экран строка с максимальным значением.
  9. Если во всех строках не найдено простых чисел, выводится сообщение На побочной диагонали нет простых чисел.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы