Ответ: Пришла - анализирую

Ответ: CONST
rows = 6;
cols = 5;
max = 10.0;
VAR
A: array[1..rows, 1..cols] of Real;
mid, mid_max: Real;
i, j, max_row: Integer;
BEGIN
WriteLn;
for i:=1 to rows do begin
for j:=1 to cols do
begin
A[i,j]:= max*random;
Write(A[i, j]:10:5)
end; WriteLn end;
max_row := 1;
mid_max := 0;
for j:=1 to cols do mid_max := mid_max + A[1, j];
mid_max := mid_max/cols;
for i:=2 to rows do begin
mid:=0;
for j:=1 to cols do mid := mid + A[i, j];
mid := mid/cols;
if mid > mid_max then begin
mid_max := mid;
max_row := i
end;
end;
WriteLn(''Максимальное среднее находится в строке '',max_row,
'' и равно '', mid_max:10:6);
END.

Ответ: Это несложно:
var
a, b: Integer;
x: Longint;
BEGIN
Write(''Введите целое число a: ''); ReadLn(a);
Write(''Введите целое число b: ''); ReadLn(b);
if a > b then
x := 2*(a + b) else
if a < b then
x := (a- 5) div b else
x:= -2;
WriteLn(''Значение результата x: '',x);
END.

Ответ: Решение Вашей задачи размещено в разделе "Простые программы" под номером 73
Прямая ссылка на архив с файлом данных и исходником
http://borlpasc.narod.ru/Boris/serg02.7z

Ответ: Решение Вашей задачи размещено в разделе Программы - Простые под номером 72
Прямая ссылка
http://borlpasc.narod.ru/Boris/NIKOL.PAS

Ответ: {А что делать, если в массиве нет нулей - решил, что сумму не выводить}
const
N = 20;
max = 21; {Если выбрать меньше, то нулей будет больше}
VAR
A: array[1..N] of integer;
i: Integer;
Zerous: Boolean; {есть нули или нет}
sum: Real;
BEGIN
Randomize;
for i:=1 to N do
A[i] := random(max);
{Покажем}
for i:=1 to N do write(A[i]:8);
WriteLn;
sum:=0;
Zerous := FALSE;
for i:=1 to N do begin
if NOT odd(A[i]) then sum := sum + A[i];
if A[i] = 0 then begin
break; {break - немеделенный выход их цикла}
Zerous:=True;
end
end;
if NOT Zerous then WriteLn(''В массиве нет нулей'') else
WriteLn(''Сумма четных элементов до первого нуля: '',sum:8:0);
END.

Ответ: Решение Вашей задачи (как я понял условие) находится в разделе Программы -> Простые под номером 71
Прямая ссылка:
http://borlpasc.narod.ru/prog/ANTON.PAS

Ответ: Посылаю утилиту pcxgrab
Инструкция:
1) скопировать в папку с ДОСовским именем (не больше 8 символов, английские)
2) Нужно зайти в DOS: Win+R и command
3) зайти в папку с pcxgrab
4) запустить pcxgrab.bat
5) запустить свою программу
6) в нужный момент нажать Alt+G. Получите файл .pcx
7) Нажимайте еще - автоматически перенумеровывается
8) Я открыл IrfwanView и сохранил в более современном формате
--
Удачи. Борис

Ответ: Дело наважно - просто для этого старинного графического режима нет оконного варианта. Связано со структурой памяти. Раньше были "грабилки" для решения это задачи (уж не знаю, найду ли ...)
По Print Screen в память заносится информация, но она "в старом стиле"
На стайте http://nostalgy.net.ru/graph.htm нашел несколько. Надо скачать и проверить
Эта не работает http://nostalgy.net.ru/graph/scrntief.zip

Ответ: Программа размещена в разделе "Среднии программы"
http://borlpasc.narod.ru/progcredn.htm
под номером 93
Прямая ссылка
http://borlpasc.narod.ru/prog1/VANO.PAS

Ответ: 1) Не совсем понял.... Я всегда утверждал, что TP7 хуже BP7 по нескольким причинам. Главная: лучше работает под Windows
2) Ассемблер мощнее, тем более современный masm32
3) FreePascal мощнее Borland Pascal хотя бы потому, что "тот" закончил свое развитие в до 1992 года, а "этот" развивается, учитывая новые особенности новых машин
4) и насчет бросания не совсем верно. Просто здесь работают в С/C++/C#. Вспомните, хотя бы о драйверах