// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=MatrRandom(5,5,0,100); Writeln('*** Исходная матрица ***'); a.Println(4); Writeln(4*a.ColCount*'-'); var k:=a.ElementsWithIndexes.MaxBy(t->t[0]); Write('Максимальный элемент [',k[1]+1,',',k[2]+1,']=',k[0]); var p:=' на '; if k[1]<k[2] then p:=' выше ' else if k[1]>k[2] then p:=' ниже '; Writeln(', расположен',p,'главной диагонали') end.
0. Начало 1. Ввод - Гвозди, картина молоток, стена 2. Операция - Прибить гвоздь к стене при молотка 3. Условие - Гвоздь прибит к стене? Нет->Повторить пункт 2; Да->Переходим к пункту 4 4. Повесить картину на гвоздь 5. Конец
Ну это если не заморачиваться с условиями. К примеру можно после 4 пункта поставить условие на проверку положения картины, т.е Картина висит прямо? ->Нет то Действие выровнять положение картины; Да->Конец
UPD: Ещё можно создать условие на состояние гвоздя - погнутый или целый, вытаскивание погнутого гвоздя и т.д.
