Информатика, 9 класс

Program prim2; Var a: array[1..10] of integer; i: integer; Begin For i:=1 to 10 do a[i]:=Random(20)+1; //заполняем массив случайными числами от 1 до 20/ writeln('Исходный массив: '); For i:=1 to 10 do write (a[i], ' '); //выводим массив на экран/ writeln; //переход на новую строку/ writeln('Нечетные элементы массива: '); For i:=1 to 10 do if a[i] mod 2 =1 //будем проверять нечетность элемента - если остаток при делении элемента на 2 равен 1, то элемент нечетный и его надо вывести на экран/ tnen write(a[i], ' ') End.