В двухмерном массиве А(7,7) случайных чисел из диапазона (-10..10) найти:
1. Минимальный элемент в 7 столбце
2. Сумму элементов 1 строки
3. Среднее значение 5 столбца
4. Количество нечетных элементов массива
5. Заменить элементы 1 столбца на единицы.

Program q;
    var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
    randomize;
    for i:=1 to 7 do begin;
        for k:=1 to 7 do begin;
            a[i,k]:=random(-10,10);
            if a[i,k] mod 2 = 1 then odd+=1;
        end;
    end;
    min7:=a[1,7];
    for i:=1 to 7 do if a[7,i]lt;min7 then min7:=a[i,7];
    for i:=1 to 7 do sum1+=a[i,1];
    for i:=1 to 7 do avg5+=a[5,i];
    avg5/=7;
    for i:=1 to 7 do a[1,i]:=1;
    write(Минимальный элемент в 7 столбце , min7, , сумма элементов первой строки , sum1, , кол-во нечётных чисел , odd);
end.