<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(7, 10, 15);
a.Println;
var i := a.IndexMin;
Writeln('min a[', i + 1, '] = ', a[i])
end.
<h2>Пример</h2><h3>15 12 10 13 12 13 10</h3><h3>min a[3] = 10</h3>
Var
a,b,c:integer;
begin
writeln('Vvedite chislo ot 10 do 99');
readln(c);
a:=c div 10;
b:=c mod 10;
if b>a then writeln(c) else
begin
c:=b*10+a;
writeln(c);
end;
end.
Program gt;
var a:array[1..1000]of integer;
i,s,n:integer;
begin
read(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i] mod 5=0)then s:=s+a[i];
end;
writeln(s);
end.