Предмет: Информатика, автор: lidcoop

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

Приложения:

Ответы

Автор ответа: furs1975
0
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.
Приложения:
Похожие вопросы
Предмет: Математика, автор: vadimsherb