Первое задание:
Загрузил решение скрином.
Алгоритм простой, ищем в каждой строке самое большое число по модулю, а потом в той-же строке меняем его на противоположное.
Второе задание:
Загрузил решение скрином.
Ну а тут просто обычная проверка координат, если введёная пользователем координата равна 1, то увеличиваем её на 1, если 2 или 0, то просто ничего не трогаем.
Последнее, СОДА
Там в начале 000 - это однозначно С, потом 111 - это О
Потом 10 или 100 - это может быть либо Д, либо Н, но если Н, тогда остается 001 - такого кода нет, значит Д
Тогда остается 01 и это А
Не забудьте поблагодарить за решение и отметить его как лучшее, если вам понравился ответ
Uses crt;
const n=3;
m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(15);
write(a[i,j]:3);
end;
end.