Предмет: Информатика,
автор: lidcoop
Всего 1 задание по информатике. ПОЖАЛУЙСТА!
Приложения:

Ответы
Автор ответа:
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.
Приложения:
Похожие вопросы
Предмет: Биология,
автор: leronny072
Предмет: Математика,
автор: dmitriivorotnev777
Предмет: Литература,
автор: valerii88
Предмет: Математика,
автор: vadimsherb
Предмет: Математика,
автор: Алекс4549