Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю - Free Pascal

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

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

Дана матрица А(4,4). Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю. Программу написал, но почему-то иногда решает правильно, иногда нет. В чем моя ошибка?
program mtrica;
uses crt;
const n=4;
var a:array [1..n,1..n] of integer;
i,j,min:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:4);
end;
writeln;
end;
min:=a[1,1];
for i:=1 to n-1 do
for j:=1 to n-1 do
if (a[i,j]>min) and (a[i,j]<0) then min:=a[i,j];
writeln (min);
readkey;
end.

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

textual
Листинг программы
s:=sin(sum3+3*a[2,3]);
write(s:0:3);

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

  1. Импортируются модули math и stdio.h.
  2. Объявляются переменные:
    • sum3 типа double с нулевым значением,
    • a типа double[3][3],
    • s типа double,
    • i типа int.
  3. Вычисляется значение переменной sum3 как сумма элементов матрицы a по диагонали, начиная с элемента [2,3].
  4. Вычисляется значение переменной s как синус суммы переменных sum3 и 3*a[2,3].
  5. Значение переменной s выводится на экран с помощью функции write.
  6. Значение переменной s приводится к типу string с помощью функции string(s), чтобы можно было использовать функцию write для записи строки.
  7. Дополнительно указывается, что нужно вывести значение переменной s с 0-ой позиции и с 3-мя знаками после запятой.

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


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

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

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