Найти максимальный отрицательный элемент в квадратной матрице целых чисел ниже главной диагонали.
program max;
var i,j,max,k,n,m:integer;
a:array[1..6, 1..6] of integer;
begin
repeat
writeln('Введите размерность матрицыi');
readln(n);
if (n6) then
writeln('nepravilnoe chislo')
until (n>=2) and (nj) and (a[i,j]
код ?
Вопросы по коду должны содержать:
- задание (есть) ;
- код (есть частично - Ответы жуют, выкладывай лучше на pastebin.com ),
- описание проблемы (не "помогите подправить", а конкретно - что именно ожидается, а что выдается компилятором или программой) .
Без всех трех частей помогают только телепаты.
Нужно сразу уточнить условие задачи: мы ищем МАКСИМАЛЬНОЕ отрицательное число или МИНИМАЛЬНОЕ?
Если максимальное отрицательное число, то среди целых чисел - это (-1) (массиву присвоено в Вашей программе integer;).
Следовательно переменной max нельзя присваивать значение 0, и условие поиска будет другим. После заполнения массива нужно будет найти минимальное отрицательное число, присвоить его значение max, и только после этого искать максимальное отрицательное число.
Условие поиска минмального отрицательно числа:
if (j>i) and (a[i,j]i) and (a[i,j]max then max:=a[i,j];
end;
Так мы найдем максимальное отрицательное число
⇢