Ответ: Со временем очень плохо. Делать начал (это несложно), но не знаю, успею ли сегодня :((

Ответ: А какие требования? Использовать массивы? Списки, стеки? В принципе для 20 достаточно массива. Кроме фамилии о служащем еще что-то хранить?

Ответ: Вот простейший вариант: (Обрати внимание, что скрипт ставит вместо одного апострофа '' два - ВОТ И ТУТ ТОЖЕ)
--
const
m = 5;
n = 4;
max = 2000; {используется при заполнении, если большое, то одинаковых,
скорее всег, не будет}
var
matr: array[1..n, 1..m] of Integer;
min_in_row: Array[1..n] of Integer;
ma: Integer;
i,j :Integer;
BEGIN
{Заполняем случайными числами, если нужно другое - нетрудно переписать}
WriteLn;
Randomize;
for i:=1 to n do
for j:=1 to m do matr[i,j]:=random(max);
{Показываем}
for i:=1 to n do begin
for j:=1 to m do write(matr[i,j]:8);
WriteLn;
end;
{Ищем минимальный в каждой строке}
for i:=1 to n do begin
min_in_row[i]:=1;
for j:=2 to m do
if matr[i, j] < matr[i, min_in_row[i]] then min_in_row[i]:= j;
end;
for i:=1 to n do WriteLn(matr[i, min_in_row[i]]);
{А теперь самое большое}
ma:=1;
for i:=2 to n do
if matr[i, min_in_row[i]] > matr[ma, min_in_row[ma]] then ma:=i;
WriteLn(''Max from mins = matr['',ma,'', '', min_in_row[ma], ''] = '', matr[ma, min_in_row[ma]]);
END.

Ответ: Вот вариант решения, где массив заполняется случайными числами:
------
uses CRT;
const max = 2000;

var num: Integer; ar : array[1..max] of Integer;
{формирование массива элементов, a_max - максимальный размер элемента}
procedure FillArray(a_max: Integer);
var k: Integer; begin a_max := a_max +1; for k:=1 to num do ar[k]:=random(a_max) end;

procedure ShowArray;
var k: Integer; begin for k:=1 to num do write(ar[k]:5); WriteLn(#10) end;

{Упорядочение массива, в упорядоченном массиве легче найти более короткую комбинацию}
procedure SortArray;
var k, n, temp: Integer; begin
for k:=1 to num - 1 do for n:=k+1 to num do if ar[n] < ar[k] then
begin temp:=ar[k]; ar[k]:=ar[n]; ar[n]:=temp end; end;

function IntToStr(i: Integer): String; {Нет в BP такой функции, а жаль ...}
var buf: String; begin Str(i, buf); IntToStr:=buf end;

{Поиск комбинации max_coeff - это максимальное частное от деления суммы
на заданное число. Искомая сумма записывается для отображения в виде строки String
Возвращает ИСТИНА, если искомая сумма найдена, или ЛОЖЬ, если не найдена
АЛГОРТИМ: ищем не сумму, деленную на заданное число, а сумму, равную целому числу
(1, 2, ..., max_coeff), умноженному на заданное число}
function Search: Boolean;
var S: String; n, k, m: LongInt; sum_n: Longint; max_el, max_coeff: LongInt;
begin
Search:=True;
max_el:=-MaxInt; for k:=1 to num do if ar[k] > max_el then max_el:=ar[k];
max_coeff := MaxLongInt div max_el;
for n:=1 to max_coeff do begin sum_n:= n*num;
for m:=num downto 1 do begin S:=''''; for k:=m downto 1 do
if (ar[k] <= sum_n) and (ar[k] <> 0) then begin
sum_n := sum_n - ar[k]; S:=IntToStr(ar[k]) + S;
if sum_n = 0 then begin WriteLn(''(''+S+'')/'' + IntToStr(num) + '' = ''+IntToStr(n));
Exit; {Найдена сумма} end;
S:=''+'' + S; {Иначе готовимся записать следующее число} end;
end end; Search:=False; {Не удалось найти ни одного варианта}
end;
const show: Boolean = True; {Отображать массив или нет}

BEGIN
ClrScr; Write(''Введите целое число (не больше ''+IntToStr(max)+''): ''); ReadLn(num);
if (num <2) or (num > max) then num:=max;
FillArray(40); {ShowArray; WriteLn;}
{SortArray; (* В сортированном искать легче короткую комбинацию *) }
if show then ShowArray;
if not Search then WriteLn(''Такой суммы нет''); {Если сумма есть, то результат уже выведен}
Write(''Нажмите любую клавишу''); ReadKey;
END.
Есть опасность, что изображение суммы не уложится в 255 символов, отведенных под строку

Ответ: А у меня как? Добавляется по единичке только если ответ правильный.
Или что-то другое надо? Ответ опять после 11:25 (занятия сегодня)

Ответ: Вот вариант. Послал и по почте
--------------
program cursovaya;
uses crt;
const mess: String = ''Proverka Tablicy Umnogeniya'';
col = 10;
var x, y, i, n, m: integer;
begin
Randomize;
ClrScr;
n:=0;
GotoXY( (80 - length(mess)) div 2, 1);
writeln(''Proverka Tablicy Umnogeniya'');
for i:=1 to 10 {!!!!! ВОТ ОШИБКА - только один раз выполнялось} do
begin
gotoxy(col, i+2);
y:=random(9)+1;
x:=random(9)+1;
write(''Skolko budet '',x,'' x '',y, '' = '');
read(m);
GotoXY(50, whereY-1);
if m=x*y then
begin
write(''Right!'');
n:=n+1;
end
else
write(''False, Right answer = '', x*y);
end;
WriteLn; WriteLn; GotoXY(30, WhereY);
writeLn(''Youre note: '', n div 2); {максимально 10}
Write(''Press any key ...'');
ReadKey;
end.

Ответ: "Занести" - это включить в состав EXEшника? Типа, ресурс? Не пробовал до сих пор, ибо программа получается DOS-освкая, и там есть ограничения на использование памяти, но можно попробовать, если только BMP не слишком большой. А какого размера нужно?

Ответ: Согласен, но если людям нужно, то и помочь можно. Тем более, что у Pascal есть современное продолжение, которое, кстати, все меньше отличается от С++

Ответ: Ответил письмом

Ответ: Напишу к завтрему :))
ЗЫ: число студентов ограничено или нет?