Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20 паскаль.

program massiv;

uses crt;

var a: array[1..100] of integer;

        i: integer;

begin

    write('наш массив: ');

    randomize;    

    for i: =1 to 100 do

        begin

              a[i]: =random (40) -20; // заполняем очередной элемент массива случайным  

              write(a[i],'   '); // выводим элемент массива на экран

        end;  

    readkey;

end. 

86 - 8 = 78 любят компьютерные игры

78 - 62 = 16 человек любят только квесты

78 - 54 = 24 человек любит только симуляторы

54 - 16 = 38 человек любят и квесты и симуляторы.

ответ. 38 человек любят и квесты и симуляторы.

круги эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.

внутри одного круга напиши с и 62, это те кто любит симуляторы их 62 чел.

внутри другого круга напиши к и 54, это те кто любит квесты их 54 чел.

з.ы. у меня просто не хочет прикреплять рисунок.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.