Даны: натуральное число N, целые числа A1, A2, .An

@Vemper · Регистрация: 22.05.2017

Author24 — интернет-сервис помощи студентам

Даны: натуральное число N, целые числа A1, A2, ......An.
Найти: а)наибольшее из нечетных; б)количество четных чисел.

@coade781717 · 22.05.2017, 16:08

Я вообще не понимаю как настолько простое можно спрашивать? Что именно тебе тут не понятно как делать???

Pascal

var n,i,x,ch,max:longint;
begin
read(n);
max:=-999999999;ch:=0;
for i:=1 to n do begin
        read(x);
        if x mod 2=1 then begin
                if x>max then max:=x
        end else
                inc(ch);
end;
if max=-999999999 then
        write('a) none; b) ',ch)
else
        write('a) ',max,'; b) ',ch);
end.

@bormant · 22.05.2017, 20:51

coade781717,
программка-то только частично рабочая, да?

Код

2
-1000000001
-1000000003
a) none; b) 0

Чем максимум -1000000001 не устроил, непонятно.

@coade781717 · 23.05.2017, 19:58

bormant, ну вообще в задаче должны выдаваться чёткие ограничения на данные (коих тут не было) т.к. паскали бывают разные (fpc, pabcnet) я решил не писать low(longint) или longint.minvalue , а константу вспоминать было очень лень

@Vemper 0 / 0 / 0 Регистрация: 22.05.2017 Сообщений: 1
		1
	Даны: натуральное число N, целые числа A1, A2, .An 22.05.2017, 15:48. Показов 2262. Ответов 3 Метки нет (Все метки) Даны: натуральное число N, целые числа A1, A2, ......An. Найти: а)наибольшее из нечетных; б)количество четных чисел. 0

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	22.05.2017, 20:51	3
	coade781717, программка-то только частично рабочая, да? Код 2 -1000000001 -1000000003 a) none; b) 0 Чем максимум -1000000001 не устроил, непонятно. 0

@coade781717 7 / 7 / 13 Регистрация: 01.04.2015 Сообщений: 34
	23.05.2017, 19:58	4
	bormant, ну вообще в задаче должны выдаваться чёткие ограничения на данные (коих тут не было) т.к. паскали бывают разные (fpc, pabcnet) я решил не писать low(longint) или longint.minvalue , а константу вспоминать было очень лень 0