Написать программу, которая выводит все нечетные числа из промежутка от К1 до К2 включительно в убывающем порядке - Turbo Pascal

Формулировка задачи:

Написать программу, которая выводит все нечетные числа из промежутка от К1 до К2 включительно в убывающем порядке.

Код к задаче: «Написать программу, которая выводит все нечетные числа из промежутка от К1 до К2 включительно в убывающем порядке - Turbo Pascal»

textual
uses crt;
var
i,n,m:integer;
a:array [1..100] of integer;
begin
  Textcolor (12);
  Writeln('Ваш массив: ');
   For i:=1 to 100 do
   Begin
       A[i]:=random(15);
       write(A[i]:3);
   End;
   writeln;
   textcolor(10);
  Write('От какого элемента ');
  Readln(n);
  write('До какого элемента ');
  readln(m);
  writeln('Ваши нечетные числа');
   For i:=n to m do
       If A[i] mod 2 = 0 then
       Else
       Write('  A[',i,']=',A[i]);
    writeln;
    readln;
end.

15   голосов, оценка 3.867 из 5


СОХРАНИТЬ ССЫЛКУ