Найти минимальный положительный и максимальный отрицательный из данных десяти элементов

@Slip666 · Регистрация: 13.12.2009

Помогите плиз решить задачу!!!
Найти [минимальный положительный]|[максимальный отрицательный] из данных десяти элементов. Если требуемые элементы отсутствуют, то вывести 0.

@Adler · 14.12.2009, 23:49

Pascal

1 2	mini:=0; for i:=0 to 9 do if (a[i]>0) then if (mini=0)or(a[i]<mini) then mini=a[i]; maxi:=0; for i:=0 to 9 do if (a[i]<0) then if (mini=0)or(a[i]>maxi) then maxi=a[i];

@Irek008 · 24.12.2009, 22:02

Сообщение от Adler

Pascal

1 2	mini:=0; for i:=0 to 9 do if (a[i]>0) then if (mini=0)or(a[i]<mini) then mini=a[i]; maxi:=0; for i:=0 to 9 do if (a[i]<0) then if (mini=0)or(a[i]>maxi) then maxi=a[i];

А можно программу целиком,пожалуйста, а то я что-то не пойму

@Slip666 0 / 0 / 0 Регистрация: 13.12.2009 Сообщений: 9
		1
	Найти минимальный положительный и максимальный отрицательный из данных десяти элементов 14.12.2009, 23:34. Просмотров 2044. Ответов 2 Метки нет (Все метки) Помогите плиз решить задачу!!! Найти [минимальный положительный]\|[максимальный отрицательный] из данных десяти элементов. Если требуемые элементы отсутствуют, то вывести 0. 0

Опции темы

Найти минимальный положительный и максимальный отрицательный из данных десяти элементов

Решение