Вопрос по информатике:
Помогите решить на PASCAL ABC!Только он!
В Массиве A(n) найти минимальный элемент среди нечетных отрицательных.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.01.2016 20:31
- Информатика
- remove_red_eye 686
- thumb_up 40
Ответы и объяснения 2
// PascalABC.NET 3.0, сборка 1128
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50).Println(',');
Writeln('Минимальное отрицательное нечетное равно ',
a.Where(x->(x<0) and Odd(x)).Min)
end.
Тестовое решение:
n= 15
-44,-27,40,6,-43,-19,-37,-8,-31,0,16,41,34,-26,17
Минимальное отрицательное нечетное равно -43
- 12.01.2016 15:25
- thumb_up 22
Var a:array[1..1000] of integer;
i,min,n:integer;
begin
writeln('Введите количество элементов массива');
readln(n);
for i:=1 to n do read(a[i]);
if (a[i]<0) and (a[i] mod 20) then min:=a[i];
for i:=1 to n do
if (a[i]<0) and (a[i] mod 20) and (a[i]
writeln('Минимальный, нечетный, отрицательный элемент массива - ', min);
end.
- 13.01.2016 14:51
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.