Из одной последовательности сделать две, удовлетворяющие условиям. Help((

@Nikolaifedoseev · Регистрация: 12.04.2012

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

по заданной последовательности а1,а2,....аn(n<=20) построить 2 последовательности
х1,х2...хn и y1,y2...yn
элементы которых определяются условиями
xi = ai если а1>=0
-1 если а1<0

yi = ai если ai<0
1 если ai>=0

шапку программы я написал без проблем т.е.
но как только я дохожу до условий у меня ничего не выходит ... будьте так добры .. помогите , чем можете ))

Pascal

uses crt;
var n,i:integer;
MAS:array[1..20] of integer;
x:array[1..20] of integer;
y:array[1..20] of integer;
begin
writeln('введите кол-во членов послед.но не больше  20');
readln(n);
Randomize;
for i:=1 to n do

Добавлено через 43 минуты
Я попробовал до писать , но увы ((
Подскажите в чем ошибка

Pascal

begin
MAS[i]:=random(999999999);
writeln('MAS(',i,')=' ,MAS[i]);
end;
begin
if MAS[i]>=0 then x[i]:=MAS[i]
else
if MAS[i]<0 then x[i]:=1
end;
begin
if MAS[i]<0 then y[i]:=MAS[i]
else
if MAS[i]>=0 then y[i]:=1
end;
writeln(y[i]);
writeln(x[i]);
end.

Добавлено через 1 час 37 минут
Уважаемый Модератор, Можете удалить тему..
Я наконец таки разобрался в наиглупейшей ошибке спустя 3 часа
Заранее Спасибо ))

@Nikolaifedoseev · 13.04.2012, 08:31 **[ТС]**

Pascal

Program Fedoseev_Massiv;
uses crt;
var n,i,s:integer;
MAS:array[1..20] of integer;
x:array[1..20] of integer;
y:array[1..20] of integer;
begin
writeln('Введите кол-во членов последовательности, но не больше  20');
readln(n);
Randomize;
for i:=1 to n do
begin
MAS[i]:=-1000+random(1999);
begin
if MAS[i]>=0 then x[i]:=MAS[i]
else
if MAS[i]<0 then x[i]:=1
end;
begin
if MAS[i]<0 then y[i]:=MAS[i]
else
if MAS[i]>=0 then y[i]:=1
end;
write('  MAS(',i,')=' ,MAS[i]);
write('  MAS x(',i,')=',x[i],'  ');
writeln('  MAS y(',i,')=',y[i]);
end;
end.

Ошибка заключалась в операторах вывода.. т.к. я писал writeln для вывода всех массивов те.
в начале программы writeln('MAS(',i,')=' ,MAS[i])
и после условий
writeln(y[i]);
writeln(x[i]);
В итоге я допер что надо написать по другому и у меня все получилось )
write(' MAS(',i,')=' ,MAS[i]);
write(' MAS x(',i,')=',x[i],' ');
writeln(' MAS y(',i,')=',y[i]);
В конечном результате программа выводит на экран 3 массива в 3столбца ,правда получается немножко кривовато , но не в этом суть ))Программа работает и это хорошо!

	13.04.2012, 08:31