Всё очень просто. Первый делом вы должны искать максимальный элемент массива, запоминая строку, в которой он находится. Далее нужно создать два массива : в первый записать значения строки, где находится максимальный элемент, а во второй - тот столбец К. ( Можете принять, что матрица квадратная, иначе следовали бы какие-то другие условия ) После этого уже понятно, как поменять элементы строки и столбца. Ещё можно создать дополнительную матрицу, но это будет не выгодно по памяти, да и по времени тоже. Вроде бы понятно объяснил
Интересная задачка. попробую объяснить как решал. сначала расставим то, что известно однозначно. это то, что Николай встречается со Ольгой потом Толя - поросенок. потом Миша - Томин на этом все. теперь размышляем. Сидоров не Толя и не Саша. а так же не Николай(потому что пришел с Леной) остаются Вася и Миша. однако фамилию Миши мы знаем. следовательно Сидоров - Вася. Сразу же записываем к Васе Лену. теперь с маской. Он не кот(Иванов), не собака(Петров), не поросенок(Толя), не бычок(Света) следовательно он мишка. Толя пришел не с Таней и не со Светой. так же не с Леной(Вася) и не с Ольгой. остается только Катя. Толя не Сидоров(Вася), не Томин (миша), не Иванов(Катя), не Петров(собака) остается Васильев Николай не Сидоов(Вася), не Томин(миша), не Васильев(Толя) и не Петров(пунтк 1) следовательно он Иванов. сразу пишем к нему кота остается одна фамилия - Петров и это Саша так же сразу пишем собаку к нему. из масок остался только бык - Миша с быков встречается Света ну и последняя девушка Таня остается Саше вот и все) но можно последовать совету, который написали раньше и составить бооольшую таблицу. тот вариант действительно нагляднее
Объяснение:
Сразу с заполнением массива числами.
var mn,mp,mc:integer;
mas:array [-10..10] of integer;
begin
for var i:=-10 to 10 do begin
readln (mas[i]);
if mas[i]=0 then
mn:=mn+1;
if mas[i]<0 then
mc:=mc+1;
if mas[i]>0 then
mp:=mp+1;
end;
writeln ('Положительных элементов: ',mp);
writeln ('Отрицательных элементов: ',mc4);
writeln ('Нулевых элементов: ',mn);
end.