Информатика
СРОЧНО!Пишу прогу с процедурами, которая считает количество "особых "элементов матрицы, но в конце проги не работает writeln, в чём может быть проблема? Вот задача. Заданная целочисленная матрица размером NXM. Определить k-количество "особых" элементов матрицы, считая элемент "особым", если в его строке слева от него находятся элементы, меньшие его, а справа - большие. Вот мой код.И если уж у меня все плохо,то предложите свой код программы.program samost;const n=5; m=5; type tmatr = array[1..n, 1..m] of integer;var a:tmatr; i,j,k:integer; procedure PrintMatrix(var g:tmatr);begin var i,j,k:integer; for i:=1 to n do begin for j:=1 to n do write(g[i,j]:4); writeln end;end; procedure MakeMatrix;begin var i,j,k:integer; randomize; for i:=1 to n do for j:=1 to n do begin a[i,j]:=random(10)-5; end;end; begin MakeMatrix; writeln(matrica A: ); PrintMatrix(a); k:=0; for i:=1 to n do for j:=1 to m do begin if (a[i,j]a[i-1,j]) then inc(k) end; writeln(kolichestvo elementov = ,k);end.
Задача 1. Составить программу, которая запрашивает у пользователя два числа (m, n), находит их сумму (S) и произведение (P). Сравнивает значения суммы и произведения и выводит сообщение какое больше (сумма или произведение) и на сколько. Иногда в задачах требуется выполнение не одного, а нескольких условий или одного из нескольких. Тогда простые условия образуют составные при помощи логических операций and или or.Формат записи составного условия:(условие 1) and (условие 2) and…and (условие N)(условие 1) or (условие 2) or…or (условие N)Задача 2. В школу танцев принимаются учащиеся не выше 178 см и не ниже 168 см. Написать программу, которая определяет, будете ли Вы приняты в школу танцев.Условие:if (rost168) then write (‘Приняты!‘) else write (‘ Не приняты!‘);Задача 3. Составить программу, которая определяет, является ли данное число трехзначным и выводит сообщение об этом (двузначным является число от 10 до 99).Задача 4. На работу в компанию принимаются люди не старше 42 лет и имеющие стаж работы не менее 5 лет. Написать программу, которая определяет, будет кандидат принят на работу или нет.Задача 5. Дано некоторое число b. Составить программу, которая удваивает данное число если оно, принадлежит интервалу [m;n], ыв противном случае заменяет его на противоположное.PS: pascal(не турбо),всем буду благодарен!
