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

@Little_Sun · Регистрация: 05.01.2010

, потом все отрицательные элементы, потом нули...

Да прибудет с вами сила...

@yanyk1n · 06.01.2010, 19:16

Pascal

uses crt;
const n=10;
var a,b:array[1..n]of integer;
i,k:integer;
 
begin
 clrscr;
 write('-> ');
 for i:=1 to n do read(a[i]);
 readln;
 k:=0;
 for i:=1 to n do if a[i]>0 then
 begin
  inc(k);
  b[k]:=a[i];
 end;
 for i:=1 to n do if a[i]<0 then
 begin
  inc(k);
  b[k]:=a[i];
 end;
 for i:=1 to n do if a[i]=0 then
 begin
  inc(k);
  b[k]:=a[i];
 end;
 for i:=1 to n do write(b[i],' ');
 readln;
end.

@Little_Sun 0 / 0 / 0 Регистрация: 05.01.2010 Сообщений: 20
		1
	Дан массив целых чисел, содержащий 10 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива 06.01.2010, 19:12. Просмотров 3872. Ответов 1 Метки нет (Все метки) , потом все отрицательные элементы, потом нули... Да прибудет с вами сила... 0

Опции темы

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

Решение