Program znanija;
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )
for i:=1 to 20 do A[i]:=random(9); // заполняем массив
for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;
for i:=1 to 20 do write(A[i]:3); // Выводит весь массив
writeln(); // просто перевод на новую строку для красоты
writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
<span>end.</span>
Чтобы отметить лишнее, нужно хотябы ещё одно словосочетание
Var i,n,k: integer;
<span> a: array[0..1000] of integer;
</span><span>begin
</span><span> write('n = '); readln(n);
</span><span> a[0]:=1; a[1]:=1;
</span><span> i:=2;
</span><span> repeat
</span><span> k:=i div 2;
</span><span> if (i mod 2) = 0 then a[i]:=a[k]+a[k-1]
</span><span> else a[i]:=a[k]-a[k-1];
</span><span> i:=i+1;
</span><span> until i>n;
</span><span> writeln('a(n) = ',a[n]);
</span><span>end.
</span>