Заменить все отрицательные члены последовательности ее минимальным элементом, а все положительные - максимальным

@alexus101 · Регистрация: 29.01.2014

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

Дано натуральное число n и последовательность действительных чисел a1,a2...an.Заменить все отрицательные члены минимальным елементом,а все положительные-максимальным.

@kastiniel · 09.04.2014, 14:21

думаю var опишите сами

Pascal

for i:=1 to n do
  readln(a[i]);
min:=a[1];max:=a[1];
for i:=2 to n do
 begin
  if min>a[i] then min:=a[i];
  if max<a[i] then max:=a[i];
 end;
for i:=1 to n do 
 if a[i]<0 then a[i]:=min else a[i]:=max;
writeln('rezultat-');
for i:=1 to n do
 writeln(a[i],' ');

вроде так

09.04.2014, 19:49

Спасибо!!!

@alexus101 0 / 0 / 0 Регистрация: 29.01.2014 Сообщений: 17
		1
	Заменить все отрицательные члены последовательности ее минимальным элементом, а все положительные - максимальным 08.04.2014, 22:45. Показов 1493. Ответов 2 Метки нет (Все метки) Дано натуральное число n и последовательность действительных чисел a1,a2...an.Заменить все отрицательные члены минимальным елементом,а все положительные-максимальным. 0

Андреечка
	09.04.2014, 19:49	3
	Спасибо!!!

Опции темы

Заменить все отрицательные члены последовательности ее минимальным элементом, а все положительные - максимальным

Решение