Помогите, срочно!!!Задача по паскалю!Заполнить массив из 10 элементов положительных или отрицательных чисел во 2 массив переписать сначала отрицательные а потом положительные числа, вывести результат
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b:array[1..10] of real;
i,k:integer;
begin
k:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
if a[i]<0 then
begin
b[k]:=a[i];
write(b[k],' ');
k:=k+1;
end;
for i:=1 to 10 do
if a[i]>=0 then
begin
b[k]:=a[i];
write(b[k],' ');
k:=k+1;
end;
end.