Для заголовков лучше таймс нью роман жирный 16, а для подзаголовков тот же шрифт но уже курсив и 14
256=2^8 ---> 8 бит для кодирования одного символа
F =8*30*70*5=84 000 бит весь текст;
t=1 мин =60 секунд
V =F/t =84 000/60= 1400 бит/c =175 байт/c
Program n_10;
var y, a, b, c, d: integer;
begin
writeln ('Нахождение наибольшей из четырёх величин');
write ('Введите a, b, с, d>>');
readln (a, b, c, d);
y:=a;
if (b>y) then y:=b;
if (c>y) then y:=c;
if (d>y) then y:=d;
writeln ('y=' , y)
end.
// PascalABC.NET 3.4, сборка 1767 от 27.08.2018
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
procedure ColorPrint(a: array[,] of integer);
begin
var s := a.ElementsByRow;
var (min, max) := (s.Min, s.Max);
var DefColor := FontColor;
font.Name := 'Courier New';
for var i := 0 to a.RowCount - 1 do
begin
for var j := 0 to a.ColCount - 1 do
if a[i, j] = min then
begin
Font.Color := clRed;
Write(a[i, j]:4);
Font.Color := DefColor
end
else
if a[i, j] = max then
begin
Font.Color := clGreen;
Write(a[i, j]:4);
Font.Color := DefColor
end
else Write(a[i, j]:4);
Writeln
end
end;
begin
var a := MatrRandom(5, 5, -10, 10);
ColorPrint(a)
end.