Дан массив А из n элементов. Сформировать массивы X и Y из положительных и отрицательных элементов!
Помогитииииииии
Ответы
Ответ дал:
0
const n=10;
var a,x,y:array[1..n] of integer;
k,p,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
k:=1;
p:=1;
for i:=1 to n do begin
if a[i]>=0 then begin x[p]:=a[i]; p:=p+1; end;
if a[i]<0 then begin y[k]:=a[i]; k:=k+1; end;
end;
writeln;
for i:=1 to p do
write(x[i]:3);
writeln;
for i:=1 to k do
write(y[k]:3);
end.
Ответ дал:
0
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var x := a.Where(p -> p > 0).ToArray;
var y := a.Where(p -> p < 0).ToArray;
x.Println;
y.Println
end.
Приложения:
![](https://st.uroker.com/files/702/7020a5d6680fc0998f957261a16adb5c.jpg)
Вас заинтересует
3 месяца назад
5 месяцев назад
2 года назад
7 лет назад
7 лет назад