1. имеется одномерный массив размерностью 20, заполненный рандомными числами на отрезке от 1 до 20. требуется удалить из него максимальный и минимальный элементы примечание: алгоритм удаления: сдвигаются все элементы на 1 позицию влево, начиная с элемента, значение которого оказалось максимальным; последнему элементу присваивается значение 0; при выводе массива уменьшается количество выводимых элементов на 1. пример 11 20 15 9 14 10 удаление элемента №2 11 15 9 14 10 0 вывод 11 15 9 14 10 выполнить сложение матрицы a[3x4} и матрицы в[3x4], заполненных случайными однозначными числами в полученной матрице с перераспределить элементы в столбцах следующим образом: отсортировать первую строку матрицы по убыванию; остальные элементы каждого столбца должны переместиться в тот же столбец, куда переместился их первый (верхний) элемент, т.е. следовать за ним.

Const
   N = 20;
Var
   A:array[1..N] of integer;
   i,M:integer;
Begin
Randomize;
Write('Исходный массив:');
M:=1;
For i:= 1 to N do
    Begin
    A[i]:=random(N+1);
    Write(' ',A[i]);
    if A[i] > A[M] then M:=i;
    End;
WriteLn;
WriteLn('Max = ',A[M],'[',M,']');
if M < N then
   For i:= M to N-1 do
       A[i]:=A[i+1];
M:=1;
For i:= 1 to N-1 do
    if A[i] < A[M] then M:=i;
WriteLn('Min = ',A[M],'[',M,']');
if M < N then
   For i:= M to N-1 do
       A[i]:=A[i+1];
Write('После удаления Max и Min:');
For i:= 1 to N-2 do
    Write(' ',A[i])
End.

Const
   N = 3;
   M = 4;
Var
   A,B,C:array[1..N,1..M] of shortint;
   i,j,Max,t:integer;
Begin
Randomize;
WriteLn('Матрица A:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(19)-9;
        Write(A[i,j]:2,' ')
        End;
    WriteLn
    End;
WriteLn('Матрица B:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        B[i,j]:=random(19)-9;
        Write(B[i,j]:2,' ');
        End;
    WriteLn
    End;
WriteLn('A+B:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        C[i,j]:=A[i,j]+B[i,j];
        Write(C[i,j]:3,' ');
        End;
    WriteLn
    End;
For i:= 1 to N do
    Begin
    Max:=i;
    For j:= i+1 to M do
        if C[1,j] > C[1,Max] then Max:=j;
    For j:= 1 to N do
        Begin
        t:=C[j,Max];
        C[j,Max]:=C[j,i];
        C[j,i]:=t
        End;
    End;
WriteLn('Матрица C:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Write(C[i,j]:3,' ');
    WriteLn
    End;
ReadLn
End.

uses crt;
var c:char;
begin clrscr;
write('Введите символ ');
readln(c);
case c of '0'..'9':write('Это десятичная цифра, ее код ',ord(c)); 'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c)); 'a'..'z':write('Это строчная латинская буква, ее код ',ord(c));
'+','-','*':write('Это знак арифметического действия, его код ',ord(c)); //убрал знак /, он в спец. символах ';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c)); else write('Символ не входит в указанный список') end; readln end.

№1
1) Названием программы не может быть оператор end
2) Ошибок нет
3) Неверно написан оператор (нужно programm, вместо programma)
№2
1) Неправильно записан оператор mod. Неправильно написан знак присваивания (:=)
2) Неправильно записан оператор div. Неправильно написан знак присваивания (:=)
3) Недостаточно аргументов. Неправильно написан знак присваивания (:=)
4) Неправильно записан оператор div. Неправильно написан знак присваивания (:=). Лишний символ ^
№3
1) 1
2) Ошибка
3) 4
4) 5
5) 64
6) 10
7) 81
№4
Вообще, здесь должна быть ошибка, потому что неверно записан знак присваивания
Если представить, что там все правильно, тогда:
b=4680
a=4682