Тема массивы.
Язык - pascal abc.
Нужна программа по принципу работы Вводим 10 элементов массива - выводятся нечетные.

А если без рандома, то как?

да так же

Если попроще вариант, поставить вместо n 10

for i:=1 to n do begin write("Введите элемент: ",i); readln(a[i]); write (a[i],' '); // и сразу выводим end;

Спасибо

const n=10;var a:array [1..n] of integer;        i: integer;begin  randomize;   writeln ("Массив из 10 элементов:');   for i:=1 to n do   begin      a[i]:= random(101);       write (a[i],' ');    end;  writeln('Нечетные элементы:');  for i:=1 to n do   if a[i] mod 2<>0 then    write(a[i],' ');end.Используем рандом для заполнения массива