Опишіть всі можлив розархівування файлів.

без использования всяких функций

Объяснение:

Pascal

var

 a:array [1..12] of integer;

 i, j, k:integer;

begin

 randomize;  

 for i:=1 to 12 do  

   a[i]:=random(101)-50;

 print(a);

 writeln();

 i:=1;

 while i <= 12 do begin

   for j:= i to 12 do

     if a[j]<a[i] then begin

       k:=a[j];

       a[j]:=a[i];

       a[i]:=k;

       dec(i);

       break;

     end;  

   inc(i);

 end;  

 print(a);

 writeln();

 if a[3] mod 2 = 0 then

   writeln(a[3], ' число четное')

 else

   writeln(a[3], ' число нечетное')

end.

while True:

   n = int(input('Введите кол-во чисел: '))

   if n <= 1000:

       break

   else:

       print('Ошибка: Кол-во чисел не должно превышать 1000')

number = None

for _ in range(n):

   while True:

       num = int(input('Введите число: '))

       if num <= 30000:

           break

       else:

           print('Ошибка: Число не должно превышать 30000')

   if num % 5 == 0:

       if number:

           if num > number:

               number = num

       else:

           number = num

print(number)