1)Составьте программу, которая заполняет массив a [1...10] случайными целыми числами в...

Question

1)Составьте программу, которая заполняет массив a [1...10] случайными целыми числами в диапазоне от 1 до 20 и вывода на экран элементов массива с нечётными значениями.
2) Соединить :D
1- двоичный код
2- кодирование
3- система счисления
4- основание
5- разряд
а- Процесс преобразования информации из одной форму представления в другую
б- Набор из нулей и едениц
в- Позиция цифры в числе
г- Способ запичи чисел
д- Число цифр, которые используются в системе счисления для записи чисел

Answer 1

Const N = 10;
var a: array[1..N] of integer;
  i: integer;
begin
  randomize;
  writeln('исходный массив');
  for i := 1 to N do begin
    a[i] := Random(20) + 1;
    write(a[i]:3);
  end;
  writeln;
  writeln('нечетные значения');
  for i := 1 to N do
    if a[i] mod 2 = 1 then 
      write (a[i]:3);
end.