// Pascal ABC.NET
const
    N = 10;

var
    a : array[1..N] of integer;
    i, count, sum, min, imin : integer;
    
procedure print(a : array of integer);
var i : integer;
begin
    for i := 1 to N do
        write(a[i]);
end;
    
begin
    randomize;
    for i := 1 to N do
        a[i] := random(101);
    print(a);
    writeln;
    count := 0; sum := 0;
    min := a[1];
    imin := 1;
    for i := 1 to N do begin
        if a[i] > 10 then
            inc(count);
        if a[i] mod 2 = 0 then
            sum += a[i];
        if a[i] < min then begin
            min := a[i];
            imin := i;
        end;
        if a[i] mod 5 = 0 then
            a[i] := 0;
    end;
    writeln('Count is ', count);
    writeln('Summa is ', sum);
    writeln('Minimus is ', min, '. His index is ', imin);
    print(a);
end.