Проверить, чередуются ли в массиве положительные и отрицательные числа

@Natasha18 · Регистрация: 28.01.2011

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

нужна помощь неучу

1.дан массив нулевых целых чисел размера N. проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, то вывести 0, если нет.

2.Дано вещественное число R и массив размера N. Найти два элемента массива, сумма которых наиболее близка к данному числу.

Комментарий модератора

Называйте нормально темы!

@Zerkalka · 28.01.2011, 22:01

может все-таки не нулевых чисел?

@Natasha18 · 28.01.2011, 22:04 **[ТС]**

нулевых...
я эту задачку сделала но она вроде не правильная(((

@SuPeR XaKer · 28.01.2011, 22:06

нулевых...

ну тогда поздравляю

Pascal

1
2
3

begin
 writeln('Нет решения!!!')
end.

вот и вся программа

@Zerkalka · 28.01.2011, 22:12

SuPeR XaKer, прав. нулевые числа не могут быть отрицательными или положительными.

@Natasha18 · 28.01.2011, 22:17 **[ТС]**

ок..а вторая

@Puporev · 29.01.2011, 07:07

2.

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,j,i1,i2:byte;
    r,mn:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:0:2,' ');
 end;
writeln;
writeln;
write('Введите действительное число R=');
readln(r);
mn:=abs(r-(a[1]+a[2]));
i1:=1;
i2:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if abs(r-(a[i]+a[j]))<mn then
 begin
  i1:=i;
  i2:=j;
  mn:=abs(r-(a[i]+a[j]));
 end;
writeln('Наиболее близка к ',r:0:2,' сумма чисел ');
write(i1,'=',a[i1]:0:2,' и ',i2,'=',a[i2]:0:2,' S=',a[i1]+ a[i2]:0:2);
readln
end.

@Zerkalka 38 / 37 / 8 Регистрация: 09.03.2010 Сообщений: 79
	28.01.2011, 22:01	2
	может все-таки не нулевых чисел? 0

@Natasha18 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 6
	28.01.2011, 22:04 [ТС]	3
	нулевых... я эту задачку сделала но она вроде не правильная((( 0

@Zerkalka 38 / 37 / 8 Регистрация: 09.03.2010 Сообщений: 79
	28.01.2011, 22:12	5
	SuPeR XaKer, прав. нулевые числа не могут быть отрицательными или положительными. 0

@Natasha18 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 6
	28.01.2011, 22:17 [ТС]	6
	ок..а вторая 0

	29.01.2011, 07:07

Проверить, чередуются ли в массиве положительные и отрицательные числа

Решение