Дан целочисленный двумерный массив, размерности n х m. Поменять местами первый и последний элементы.Можно без рандомайза Var a: array[1..50,1..50] of integer;
i, j, n, m,S: integer;
Begin
Write(‘сколько строк?’); Readln(n);
Write(‘сколько столбцов?’); Readln(m);
For i:=1 to n do
For j:=1 to m do
begin
write(‘a[‘,i,’,’,j,’)=’); readln (a[i,j]); {ввод двумерного массива}
end;
S:=0;
For i:=1 to n do
For j:=1 to m do
S:=S+a[i,j]; {подсчитывается сумма всех элементов}
Writeln(‘сумма элементов массива равна ‘,S);
End.
Должно быть на подобие этого

Разумеется ведь компьютеру, для того что бы он работал как мы хотим нужна система своего рода программы которые будут следить за курсором, следить за тем нажата ли кнопка на клавиатуре или нет таких программ очень много, но их нужно ведь где-то хранить вот и для этого и существует внешняя память на ней хранится система, если вам интересно и у вас windows то откройте мой компьютер и зайдите на диск С это обычно главный диск далее найдите папку windows и нажмите на него правой кнопкой мыши выберите свойства и вы увидите сколько весит система

Program primer;
Uses crt;

var a,b,c,d: real;

begin clrscr;
      write('Введите длину отрезка a = ');
      readln(a);
      write('Введите длину отрезка b = ');
      readln(b);
      write('Введите длину отрезка c = ');
      readln(c);
      write('Введите длину отрезка d = ');
      readln(d);
     
      writeln;
      if (a<=0) or (b<=0) or (c<=0) or (d<=0) then
         writeln('Длины не могут быть отрицательными или равляться нулю')
        
         else
         begin
      if (a=b) and (a=c) and (a=d) then
         writeln('Отрезки могут быть стороами квадрата')
      else
          writeln('Отрезки не могут быть стороами квадрата');

       if ((a=b) and (c=d)) or ((a=d) and(c=b)) or ((a=c) and (d=b)) then
          writeln('Отрезки могут быть стороами прямоугольника')
       else
       writeln('Отрезки не могут быть стороами прямоугольника');
        end;

      readln;
end.