Вводится 8 чисел. Найти максимальный среди отрицательных чисел и произведение нечетных

@qivi999 · Регистрация: 17.12.2012

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

@baquaqa · 27.12.2012, 23:17

Здравствуйте, вот вариант решения
(компилировался в pascalabc.net)

Pascal

program _numbs;
 
const 
 
  count = 8;
  
var
 
 max,psum,i,N:integer;
 
BEGIN
 max:=0;
 psum:=1;
 for i:=1 to count do begin
                   write('N(',i,'): ');
                   readln(N);
                   if N<0    then 
                    if Max=0 then max:=N
                             else
                    if Max<N then Max:=N;     
                   if odd(N) then psum:=psum*N;
                  end;
write('наибольшее отрицательное: ',max,' произведение нечетных: ',psum);                  
END.

@qivi999 · 17.01.2013, 20:55 **[ТС]**

а можете как можно по простому решить?

@qivi999 0 / 0 / 0 Регистрация: 17.12.2012 Сообщений: 5
		1
	Вводится 8 чисел. Найти максимальный среди отрицательных чисел и произведение нечетных 27.12.2012, 23:01. Показов 1698. Ответов 2 Метки нет (Все метки) Вводится 8 чисел. Найти максимальный среди отрицательных чисел и произведение нечетных 0

@qivi999 0 / 0 / 0 Регистрация: 17.12.2012 Сообщений: 5
	17.01.2013, 20:55 [ТС]	3
	а можете как можно по простому решить? 0

Опции темы

Вводится 8 чисел. Найти максимальный среди отрицательных чисел и произведение нечетных

Решение