Question

Массив из 17 элементов заполнить целыми случайными числами от -15 до 15. Вывести на экран не чётные элементы и их номера

Answer 1

Const Sz = 100; // Размер массива

var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k,i: integer;

begin
N := 17;
for i:=1 to N do
a[i] := Random(30)-15;
for i:=1 to N do
begin
if (a[i] mod 2)<>0 then
writeln (a[i], ' ', i);
end;

end.