Помогите пожалуйста!
В массиве 4 на 4 найти сумму элементов побочной диагонали поменять местами 1 и последний столбец поменять местами минимальный элемент первой строки и максимальный элемент последнего столбца вывести получены массив.

Завтра возможно лучшее дам

Не успеете, у Вас 2 часа на ответ.

Извините, это не Вам, я подумал, что это автор ответа написал, что завтра даст лучшее решение, чем дал сегодня))

У Вас на "лучшее" времени - вплоть до вообще не давать никогда))

:D

Из текста задания непонятно, нужен ли промежуточный вывод, поэтому он присутствует после каждого этапа, чтобы убедиться в правильности работы программы.Программа написана и отлажена в среде PascalABC.Net.const  n = 4;var  a:array[1..n,1..n] of integer;  i,j,s,amin,jmin,amax,imax: integer;begin  { инициализация массива }  Writeln('Исходный массив');  for i:=1 to n do  begin    for j:=1 to n do    begin      a[i,j]:=Random(51)-25; { случайные числа на [-25;25] }      Write(a[i,j]:4)    end;    Writeln  end;  { сумма элементов побочной диагонали }  s:=0;  for i:=1 to n do s:=s+a[n-i+1,i];  Writeln('Сумма элементов побочной диагонали: ',s);  Writeln('Меняем местами первый и последний столбцы');  for i:=1 to n do  begin s:=a[i,1]; a[i,1]:=a[i,n]; a[i,n]:=s end;  { вывод }  for i:=1 to n do  begin    for j:=1 to n do Write(a[i,j]:4);    Writeln  end;  { меняем местами минимальный элемент первой строки   и максимальный элемент последнего столбца }  amin:=a[1,1]; jmin:=1;  for j:=2 to n do    if amin>a[1,j] then begin amin:=a[1,j]; jmin:=j end;  amax:=a[1,n]; imax:=1;  for i:=2 to n do    if amax<a[i,n] then begin amax:=a[i,n]; imax:=i end;    a[1,jmin]:=amax; a[imax,n]:=amin;  Writeln('Массив после обмена местами найденных элементов');  for i:=1 to n do  begin    for j:=1 to n do Write(a[i,j]:4);    Writeln  endend.Тестовое решение:Исходный массив -14 -25 -14 -11   8  -5   5   0   5  20  -7  -9 -23   4  -3  18Сумма элементов побочной диагонали: -9Меняем местами первый и последний столбцы -11 -25 -14 -14   0  -5   5   8  -9  20  -7   5  18   4  -3 -23Массив после обмена местами найденных элементов -11   8 -14 -14   0  -5   5 -25  -9  20  -7   5  18   4  -3 -23