1.Используя функцию random(x), получите числа в диапазонах от 1 до 10, от -10 до +10, от 50 до 100​. 2.Составьте программу заполнения массива 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве кол-во положительных и отрицательных значений. 3.Заполните случайными числами в диапазоне от 1 до 5 два массива: А[1:20] и В[1:20]. Найдите и выведите на экран только те элементы, значения которых совпадают. НА ЯЗЫКЕ ПАСКАЛЬ

на фото, все программы, кроме третей, я не понимаю ее

Объяснение:

первые три фото к 1-му заданию, 4 фото ко 2 заданию

Var
  n,d10,d:integer;
begin
  Write('Введите двухзначное число: '); Readln(n);
  d10:=n div 10; d:=n mod 10;
  if ((d10=1) or (d=1)) then begin
    Write('В число входит цифра 1');
    if ((d10=7) or (d=7)) then Writeln(' и цифра 7')
    else Writeln
  end
  else
    if ((d10=7) or (d=7)) then Writeln('В число входит цифра 7')
    else Writeln('В число не входят цифры 1 и 7')
end.

Примеры работы программы:
Введите двухзначное число: 37
В число входит цифра 7

Введите двухзначное число: 15
В число входит цифра 1

Введите двухзначное число: 71
В число входит цифра 1 и цифра 7

Введите двухзначное число: 28
В число не входят цифры 1 и 7

Var
  x:real;
begin
  x:=-2;
  while x<=2.001 do begin
    Writeln('x=',x:4:1,'  y=',5*sqr(x)-x+2:0:2);
    x:=x+0.1
  end
end.

Результат выполнения программы:
x=-2.0  y=24.00
x=-1.9  y=21.95
x=-1.8  y=20.00
x=-1.7  y=18.15
x=-1.6  y=16.40
x=-1.5  y=14.75
x=-1.4  y=13.20
x=-1.3  y=11.75
x=-1.2  y=10.40
x=-1.1  y=9.15
x=-1.0  y=8.00
x=-0.9  y=6.95
x=-0.8  y=6.00
x=-0.7  y=5.15
x=-0.6  y=4.40
x=-0.5  y=3.75
x=-0.4  y=3.20
x=-0.3  y=2.75
x=-0.2  y=2.40
x=-0.1  y=2.15
x= 0.0  y=2.00
x= 0.1  y=1.95
x= 0.2  y=2.00
x= 0.3  y=2.15
x= 0.4  y=2.40
x= 0.5  y=2.75
x= 0.6  y=3.20
x= 0.7  y=3.75
x= 0.8  y=4.40
x= 0.9  y=5.15
x= 1.0  y=6.00
x= 1.1  y=6.95
x= 1.2  y=8.00
x= 1.3  y=9.15
x= 1.4  y=10.40
x= 1.5  y=11.75
x= 1.6  y=13.20
x= 1.7  y=14.75
x= 1.8  y=16.40
x= 1.9  y=18.15
x= 2.0  y=20.00