Автор Милена Петрова задал вопрос в разделе Другие языки и технологии
Помогите с задачей! и получил лучший ответ
Ответ от Manunich[гуру]
Pascal: min:=maxint; for i:=1 to 70 do if(a[ i]>0) and not odd(a[ i]) and (a[ i]< min) then min:=a[ i]; writeln(a[ i]);
Ответ от Gogman gahas[гуру]
var a:array[1..70] of integer; i,min:integer; begin min:=a[1]; for i:=1 to 70 do if (a mod 2<>0) and (a>0) and (a<min)>; writeln(min); readln; end. решение на паскале, программу не проверял, писал все сра
var a:array[1..70] of integer; i,min:integer; begin min:=a[1]; for i:=1 to 70 do if (a mod 2<>0) and (a>0) and (a<min)>; writeln(min); readln; end. решение на паскале, программу не проверял, писал все сра
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите с задачей!