Ответ:
Б) IT-навыки
Объяснение:
Информационные технологии - IT
Умение - навыки
{ Лаконично :) }
begin
var a: <em>array</em> [1..5] of <em>Int64</em>;
var i: <em>byte</em>;
for i := 1 to 5 do readln(a[i]);
writeln('Max: ', System.Math.Max(a[1], System.Math.Max(a[2], System.Math.Max(a[3], System.Math.Max(a[4], a[5])))));
<span>end.</span>
Готово. Не пугайтесь swap, просто благодаря ему "пузырёк" выглядит лучше. Программа во вложении.
UPD: Чтобы увеличить рандомность генерации массива, измените аргумент в функции random из первого цикла.
Var a:longint; b:integer; s:string;
begin
readln(s);
a:=1; b:=1;
repeat
writeln('Продолжить вычисления? (Д/Н)');
b:=b+2;
a:=a*b;
readln(s);
until (s<>'Д');
write(a);
<span>end.</span>