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