Question

Всего 1 задание по информатике. ПОЖАЛУЙСТА!

Answer 1

uses crt;var a,b:array [1..50] of integer;    i,j,n,min:integer;begin clrscr; j:=1; for i:=1 to 10 do  begin   write('a[',i,']=');   readln(a[i]);   if (a[i] mod 2)<>0 then                         begin                        b[j]:=a[i];                        j:=j+1;                                               end;  end;   min:=b[1];  for n:=1 to j-1 do   begin    if b[n]<min then min:=b[n];   end; write('Наименьший нечетный элемент=',min);   end.

a36f1ea304733514ec5c306f10c687eb.pas