Сформировать массив содержащий 15 случайных целых чисел, принадлежащих промежутку [0; 8] и преобразовать элементы массива по следующему правилу: к четному прибавить 1, а нечетное умножить на 2.

Program findmin; uses crt; var   a: array[1..15] of integer;     min,i: integer; begin for i: =1 to 15 do  begin  a[i]: =random(9);   write(a[i],'   ');   end; for i: =1 to 15 do   if a[i] mod 2 = 0 then    a[i]: =a[i]+1   else    a[i]: =a[i]*2;     writeln; for i: =1 to 15 do  begin  write(a[i],'   ');   end; end.

Клавиатура — компьютерное устройство, которое располагается перед экраном дисплея и служит для набора текстов и компьютером с клавиш, находящихся на клавиатуре. клавиатура позволяет вводить в компьютер  числовую и текстовую информацию, а также различные команды и данные. раскладка на клавиатуре придумана исходя из часто используемых комбинаций букв. так, например, буква "ё" вынесена отдельно от остальных, ибо ее используют редко. по своему назначению клавиши на клавиатуре условно делятся на основные группы: буквенно-цифровые клавиши,клавиши цифровой клавиатуры,клавиши , клавиши-модификаторы, функциональные клавиши, клавиши курсором. буквенно-цифровые клавиши также именуются алфавитно-цифровыми клавишами, клавишами данных, клавишами для ввода данных. клавиши предназначены для выполнения определенных действий. они могут использоваться отдельно или в сочетании с другими клавишами. помимо обычных клавиатур со стандартным набором данных бывают: - мультимедийные клавиатуры:   помимо стандартного набора из 104  клавиш, снабжаются дополнительными клавишами (как правило, другого размера и формы), которые предназначены для некоторыми основными функциями компьютера - программируемые клавиатуры:   разработаны клавиатуры, в которых назначение и внешний вид клавиш изменяется программным образом в зависимости от выбранного набора символов и даже от запущенного в текущий момент приложения.

program pryam;

var y1, y2, y3, x1, x2 : real;

begin

  writeln ('введите координату (у) верхней точки прямой');

  readln (y1);

  writeln ('введите координату (у) нижней точки прямой');

  readln (y2);

  writeln ('введите координату (х) точек-концов прямой');

  readln (x1);

  writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');

  readln (y3);

  writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');

  readln (x2);

if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ');

readln;

end.