Program zadacha;
vara: array[1..10] of integer;i,min,n: integer;
beginn:=0;for i:=1 to 10 do begina[i]:=-5+random(5);write(a[i]:4);min:=a[1];end;
for i:=2 to 10 do beginif min>a[i] then min:=a[i];end;
for i:=1 to 10 do beginif a[i]=min then beginn:=n+1;end;end;
writeln();writeln('min=',min);writeln('n=',n);end.
<span>Я вас любил безмолвно, безнадежно, то робостью, то ревностью томим. - 67 символа
Размер предложения 67символа*16 бит =1072бит(4)</span>
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(10);
a.Reverse.Println
end.
<u>Пример</u>
23 132 52 0 41 7 3732 18 49 13
13 49 18 3732 7 41 0 52 132 23
Файлы формата zip открываются архиваторами. Такими как 7-zip, WinRAR, WinZIP, и т.д.
Если же вас просят ввести пароль, а вы его не знаете то можно воспользоваться программами для подбора пароля, но это может занимать длительное время.