Предмет: Информатика,
автор: спартанец7
Составте программу формирования из массива А двух массивов, в которых первый замолнен отрицательными, а второй-положительными элементами.
Ответы
Автор ответа:
0
Program Pr1;
uses crt;
var mas:array[1..100] of integer;
pos:array[1..100] of integer;
min:array[1..100] of integer;
i,b,c:integer;
Begin
clrscr;
b:=0;
c:=0;
randomize;
for i:=1 to 100 do mas[i]:=-100+random(200);
for i:=1 to 100 do write(mas[i]);
writeln();
for i:=1 to 100 do if mas[i]>=0 then begin
b:=b+1;
pos[b]:=mas[i];
end
else begin
c:=c+1;
min[c]:=mas[i];
end;
writeln('Polojitelnye');
for i:=1 to b do write(pos[i]);
writeln();
writeln('Otricatylnye');
for i:=1 to c do write(min[i]);
end.
Похожие вопросы
Предмет: Химия,
автор: ksoni23671
Предмет: Информатика,
автор: azizashukuralieva73
Предмет: История,
автор: Аноним
Предмет: Математика,
автор: NikaG
Предмет: Алгебра,
автор: mata10