Экономика
Посмотрите пожалуйста програмку (паскаль)
она выполняет 2 задания:
1 - находит максимальные элементы и делит их на 2
2- ищет минимальный элемент ниже побочной диагонали
все бы ничего, но по отдельности программы работают в идеале, но как только совмещаю их в одну, то начинают выдавать неверные ответы
что не так?
program ш1;
var i,j,n,m,max,min:integer;
a:array[1..10,1..10] of integer;
begin
read(n);
read(m);
for i:=1 to n do
for j:=1 to m do
begin readln(a[i,j]); max:=a[1,1];
if a[i,j] > max then max:= a[i,j];end;
max:= max div 2;writeln ('max',max);
for i:=1 to N do begin
write(' ':5 * (N - i+1));
for j:=N-i+2 to N do begin
write(a[i,j]:5);if min > a[i,j] then min := a[i,j];
end;writeln();end;writeln('Minimum: ', min);end.
Задача I. Секрет
(Время: 1 сек. Память: 16 Мб)
Вам в руки попала секретная записка на английском языке. Текст записки может быть любым, главное - код, заложенный в тексте. Чтобы расшифровать записку нужно посчитать количество букв «b» и «g» в записке (на любом регистре).
Если букв «b» больше, чем букв «g», то все плохо. Если букв «b» меньше, чем букв «g», то все хорошо. Ну, а если буквы содержатся в записке в одинаковом количестве, то пока не ясно, как дела пойдут.
Напишите программу для расшифровки таких секретных записок.
Входные данные
Входной файл INPUT.TXT содержит натуральное число N – количество строк в записке (N ≤ 100). Далее идет текст записки из N строк, каждая строка не более 100 символов. В тексте записки могут встречаться латинские символы, цифры, пробелы, знаки препинания и переводы строки.
Выходные данные
В выходной файл OUTPUT.TXT выведите все строки записки в неизменном виде. После вывода последней строки записки в той же строке выведите один пробел, слово «is», ещё один пробел и далее слово, определяющее тайный смысл записки:
«GOOD» – если все хорошо;
«A BADDY» – если все плохо;
«NEUTRAL» – если пока не ясно, как пойдут дела.
