Напишите программу, которая создает и выводит список определенного пользователем размера, заполненный случайными натуральными числами в диапазоне от 1 до 100 (включительно). Вывести все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем – все нечетные числа в порядке убывания их индексов.

1 Вариант (с процедурой)

program raf105;

var

 a,b: array of integer;

 i,x: integer;

procedure Divide7(x:integer; arr:array of integer);

begin

 arr[0]:= x div 1000000;

 arr[1]:= (x div 100000) mod 10;

 arr[2]:= (x div 10000) mod 10;

 arr[3]:= (x div 1000) mod 10;

 arr[4]:= (x div 100) mod 10;

 arr[5]:= (x div 10) mod 10;

 arr[6]:= x mod 10;

end;

begin

 SetLength(a,7);

 SetLength(b,7);

 writeln('Добро в игру "Лотерея"!');

 write('Введите семизначное число: ');

 readln(x);

 writeln;

 Divide7(x,a);

 x:= random(1000000,9999999);

 Divide7(x,b);

 write('Введённые числа:       ');

 for i:=0 to 6 do

   write(a[i],' ');

writeln;

 write('Сгенерированные числа: ');

   for i:=0 to 6 do

   write(b[i],' ');

end.

2 Вариант (без процедуры)

program raf105;

var

 a,b: array[1..7] of integer;

 i,x: integer;

begin

 writeln('Добро в игру "Лотерея"!');

 write('Введите семизначное число: ');

 readln(x);

 writeln;

 a[1]:= x div 1000000;

 a[2]:= (x div 100000) mod 10;

 a[3]:= (x div 10000) mod 10;

 a[4]:= (x div 1000) mod 10;

 a[5]:= (x div 100) mod 10;

 a[6]:= (x div 10) mod 10;

 a[7]:= x mod 10;

 x:= random(1000000,9999999);

 b[1]:= x div 1000000;

 b[2]:= (x div 100000) mod 10;

 b[3]:= (x div 10000) mod 10;

 b[4]:= (x div 1000) mod 10;

 b[5]:= (x div 100) mod 10;

 b[6]:= (x div 10) mod 10;

 write('Введённые числа:       ');

 for i:=1 to 7 do

   write(a[i],' ');

 writeln;

 write('Сгенерированные числа: ');

   for i:=1 to 7 do

   write(b[i],' ');

end.

PascalABC 3.4.2

При работе за компьютером необходимо соблюдать правила техники безопасности, чтобы не сломать компьютеры и другие приборы, не получить электротравмы, предотвратить появление пожара, сохранить свое здоровье (особенно состояние глаз), не утомиться.
Основные требования правил техники безопасности:
1) Расстояние от глаз до монитора должно быть не менее 15 см
2) Проверить подключение всех проводов
3) Рабочее место всегда должна быть прибрано
Неправильная посадка за компьютером может привести к искривлению позвоночника, к ухудшению зрения
Основные рекомендации по организации работы за компьютером:
1) Сидеть прямо
2) Не работать более 45 минут без перерыва
3) Во время перерыва делать зарядку для глаз