Паскаль ! найти произведение натуральный нечетных чисел от n1 до n2 .

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n1,n2):=ReadInteger2('Введите n1, n2:');
  if n1>n2 then Swap(n1,n2); // защита от злобных буратинок
  Writeln(Range(n1,n2).Where(n->n.IsOdd).Aggregate(BigInteger(1),(m,n)->m*n))
end.

Пример
Введите n1, n2: 5 100
908464046583576500993571081800306211096932110181934471244776274481035400390625

1.Графика — вид изобразительного искусства: что такое графика, классификация, виды, история, примеры графических работ. Картины великих художников-графиков Дюрера, Доре, Утамаро Китагавы

2.Paint-это программа для рисования или создания иконок

3.чтоб показать название рисунка, или для объяснения

1)2)3).Inkscape — свободно распространяемый векторный графический редактор, удобен для создания как художественных, так и технических иллюстраций. Это стало возможным во многом благодаря открытому формату SVG, развиваемому консорциумом W3C

A[i]:=random(20)-10;

while (i>0)

if i<>0

Объяснение

Ошибка A[i]:=random(21); Твой диапазон [0;20]

Исправление A[i]:=random(20)-10;

Дальше можно находить элемент в массиве по разному, можно просто все элементы проверить, счётчик дойдёт до нуля - программа выведет "Не найден!", если счётчик не равен нулю, значит хотя бы 1 значение х в массиве было найдено.

Ошибка while (i<=N)

Исправление while (i>0)

Ошибка if i<=N

Исправление if i<>0

Условие (i<=N) выполняется всегда, поэтому оно вообще не нужно