Дан двухмерный массив целых чисел(4*5).заполнить его случайными целыми числами и вывести на экран в виде таблицы. поменять местами последний и первый столбцы матрицы и найти сумму всех элементов, находящихся по ее периметру.вывести на экран полученную матрицу.

Всё возможно не рационально решал но должно всё правельно быть(проверял) uses crt; var a: array[1..4,1..5] of integer; i,j,n,p: integer; begin for i: =1 to 4 do begin for j: =1 to 5 do begin a[i,j]: =random(9); write(a[i,j],' '); end; writeln; end; writeln; for i: =1 to 4 do begin n: =a[i,1]; a[i,1]: =a[i,5]; a[i,5]: =n; end; for i: =1 to 4 do begin for j: =1 to 5 do begin write(a[i,j],' '); end; writeln; end; for i: =1 to 5 do begin p: =p+a[1,i]; p: =p+a[4,i]; end; for i: =2 to 3 do begin p: =p+a[i,1]; p: =p+a[i,5]; end; writeln(p); end.

Оператор условия if оператор условия if является одним из самых популярных средств, изменяющих естественный порядок выполнения операторов программы. он может принимать одну из следующих форм: •if < условие> then < оператор1> else < оператор2> ; •if < условие> then < оператор> ; в переводе с языка данные форматы можно определить как: •если< условие> то< оператор1> иначе< оператор2> •если< условие> то< оператор> оператор условия if выполняется следующим образом. сначала вычисляется выражение, записанное в условии. в результате его вычисления получается значение булевского типа. в первом случае, если значение выражения есть true (истина) , выполняется < оператор1> , указанный после слова then (в переводе –“то”). если результат вычисления выражения в условии есть false (ложь) , то выполняется < оператор2> . во втором случае, если результат выражения true, выполняется < оператор> , если false - оператор, следующий сразу за оператором if. операторы if могут быть вложенными.