Получить новые массивы А2 и В2 с соответственно только положительными и отрицательными элементами.

@AnnVac · Регистрация: 13.12.2011

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

Имеются два массива А1(10) и В1(12), содержащие как положительные, так и отрицательные элементы. Получить новые массивы А2 и В2 с соответственно только положительными и отрицательными элементами.Написать блок-схему

@BouH · 16.12.2011, 10:34

Pascal

{massivy tolko polozhit ili otricat}
uses crt;
var i,l,k:integer;
    a1,a2,b1,b2:array[1..22]of integer;
begin
clrscr;
writeln('vvedite A1:');
for i:=1 to 4 do
readln(a1[i]);
writeln('vvedite B1:');
for i:=1 to 5 do
readln(b1[i]);
 
l:=0;k:=0;
 
for i:=1 to 10 do
begin
if a1[i]>0 then begin inc(l); a2[l]:=a1[i]; end;
if a1[i]<0 then begin inc(k); b2[k]:=a1[i]; end;
end;
 
for i:=1 to 12 do
begin
if b1[i]>0 then begin inc(l); a2[l]:=b1[i]; end;
if b1[i]<0 then begin inc(k); b2[k]:=b1[i]; end;
end;
 
writeln('Massiv A2:');
for i:=1 to l do
write(a2[i],' ');
writeln;
writeln('Massiv B2:');
for i:=1 to k do
write(b2[i],' ');
readln;
end.

@AnnVac · 16.12.2011, 19:34 **[ТС]**

Спасибо огромнейшее!!!

@AnnVac 0 / 0 / 0 Регистрация: 13.12.2011 Сообщений: 3
		1
	Получить новые массивы А2 и В2 с соответственно только положительными и отрицательными элементами. 15.12.2011, 21:19. Показов 1495. Ответов 2 Метки нет (Все метки) Имеются два массива А1(10) и В1(12), содержащие как положительные, так и отрицательные элементы. Получить новые массивы А2 и В2 с соответственно только положительными и отрицательными элементами.Написать блок-схему 0

@AnnVac 0 / 0 / 0 Регистрация: 13.12.2011 Сообщений: 3
	16.12.2011, 19:34 [ТС]	3
	Спасибо огромнейшее!!! 0

Получить новые массивы А2 и В2 с соответственно только положительными и отрицательными элементами.

Решение