93..................................................
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>
</h3><h3 />
begin
MatrRandom.Println.Rows.Where((t,i)->(i+1) mod 2<>0)
.SelectMany(t->t).Min.Println;
end.
<em><u>Пример в приложении.</u></em>
Var a, b, c: integer;
function max(a, b : integer) : integer;
begin
if a>b then max:=a
else max:=b;
end;
begin
readln(a, b, c);
writeln(max(max(a, b),c)-5);
end.
var a:integer;
b:real;
begin
writeln('Введите секунды'); readln(a);
writeln('Секунды = ' ,a);
b := a / 60; // перевод в минуты
if a >= 60 then // если больше 60 секунд выводим минуты
writeln('Минуты = ', b)
else
writeln('Минуты = 0');
if b >= 60 then // если больше 60 минут выводим часы
writeln('Часы = ', b / 60)
else
writeln('Часы = 0');
end.
var
a,b,c:integer;
begin
randomize;
a:=random(8);
c:=0;
repeat
writeln('Введи число: ');
if a<>b then
c:=c+1;
readln(b);
if b>a then
writeln('Загаданное число меньше ! ');
if b<a then
writeln('Загаданное число больше ! ');
if b=a then
writeln('Победа!');
until a=b;
writeln(c);
readln;
<span>end.</span>