Решите пожалуйста, кто решит, дам 20 баллов

> ТАК?
Нет. Так:

var
    a, i, j, im, jm, s: integer;
    m: array[1..5, 1..5] of integer;
begin
    randomize;
    writeln('array:');
    for i := 1 to 5 do begin
        for j := 1 to 5 do begin
            m[i, j] := random(100);
            write(m[i, j]:3);
        end;
        writeln;
    end;
    im := 1;
    jm := 1;
    for i := 1 to 5 do
        for j := 1 to 5 do
            if m[i, j] < m[im, jm] then begin
                im := i;
                jm := j;
            end;
    writeln('min: m[', im, ', ', jm, '] = ', m[im, jm]);
    for i := 1 to 5 do inc(s, m[i, jm]);
    writeln('sum: ', s);
end.

Во первых, что мы с балами делать будем? За них ничего не купишь!
А во вторых, максимум за лучший ответ, можно получить 10 балов, но не 20!

)))))))))))Обманывать не хорошо)

Идет сравнение каждого члена массива с помощью двух переменных с каждым сравнением записывается (присваивается какой-нибудь другой переменной) номер столбца с самым маленьким значением. Считается сумма всех членов столбца под номером присвоенной переменной, во время сравнения. Сумма, присваивается переменной, вывод переменной.

Пишите на почту или в асю 586178755