Вводится последовательность

@lal · Регистрация: 21.01.2013

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

Вводится последовательность n целых чисел. гаити наибольшее из всех отрицательных.

@CodeR · 07.02.2013, 10:31

Pascal

For i:=1 to n do
Begin
  write(i,' число = ');readln(m);
  if (m<0)and(max=0) then max:=m;
  if (m<0)and(max<>0)and(m>max) then max:=m;
End;
writeln(max);

@lal 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 33
		1
	Вводится последовательность 07.02.2013, 10:24. Показов 1077. Ответов 1 Метки нет (Все метки) Вводится последовательность n целых чисел. гаити наибольшее из всех отрицательных. 0

	07.02.2013, 10:31

Опции темы

Вводится последовательность

Решение