Создать два новых массива в одном из которых содержатся только положительные элементы и ноль

@russian89nur · Регистрация: 10.11.2012

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

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

@Puporev · 13.11.2012, 19:09

Pascal

uses crt;
const nmax=100;
var a,b,c:array[1..nmax] of integer;
    n,m,k,i:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-25+random(50);
  write(a[i]:4);
 end;
writeln;
m:=0;
k:=0;
for i:=1 to n do
if a[i]>=0 then
 begin
  m:=m+1;
  b[m]:=a[i];
 end
else if a[i]<0 then
 begin
  k:=k+1;
  c[k]:=a[i];
 end;
if m=0 then writeln('Нет неотрицательных элементов')
else
 begin
  writeln('Массив B:');
  for i:=1 to m do
  write(b[i]:4);
  writeln;
 end;
if k=0 then writeln('Нет отрицательных элементов')
else
 begin
  writeln('Массив C:');
  for i:=1 to k do
  write(c[i]:4);
 end;
readln
end.

@russian89nur 0 / 0 / 0 Регистрация: 10.11.2012 Сообщений: 15
		1
	Создать два новых массива в одном из которых содержатся только положительные элементы и ноль 13.11.2012, 18:22. Показов 3462. Ответов 1 Метки нет (Все метки) Дан линейный массив содержащий положительные и отрицательные целые числа, создать два новых массива в одном из которых содержатся только положительные и ноль, а в другом только отрицательные. 0

	13.11.2012, 19:09

Создать два новых массива в одном из которых содержатся только положительные элементы и ноль

Решение