program laba6;
uses crt;
type mas=array[1..100] of integer;
const n=40; m=30;
var z,a,r:mas;
i,k:byte;
 
procedure matrix(NN:integer; x:mas);
var i:byte;
begin
for i:=1 to nn do
if x[i]>0 then begin
r[k]:=x[i];
inc(k);
end;end;
 
procedure matrix1(NN:integer; x:mas);
var i:byte;
begin
for i:=1 to nn do
if x[i]<0 then begin
r[k]:=x[i];
inc(k);
end;end;
 
begin
clrscr;randomize;
writeln('MASSIV Z(30)"');
for i:=1 to m do begin
z[i]:=random(199)-99;
write(z[i]:4);
end;
writeln;
writeln;
writeln('MASSIV A(40):');
for i:=1 to n do begin
a[i]:=random(199)-99;
write(a[i]:4);
end;
 
k:=1;
matrix(m,z);
matrix(n,a);
matrix1(m,z);
matrix1(n,a);
 
writeln;
writeln('MASSIV Z(70):');
for i:=1 to 70 do
write(r[i]:4);
readln;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.12.2012, 19:51

Ответы с готовыми решениями:

Расположить в массиве Y сначала положительные, а затем отрицательные элементы массива X
uses crt; const n=10; var x,y:array of integer; i,k:byte; begin clrscr; writeln('massiv...

Расположить в массиве Y сначала положительные а затем отрицательные элементы массива X
расположить в массиве Y сначала положительные а затем отрицательные элементы массива X элементы...

В заданном массиве расположить сначала все отрицательные числа и нули, затем все положительные
В заданном массиве расположить сначала все отрицательные числа и нули, затем все положительные ,...

В массиве, в порядке возрастания модулей упорядочить сначала положительные, затем отрицательные элементы
Помогите пожалуйста!! Вот задание: В массиве в порядке возрастания модулей упорядочить сначала...

	10.12.2012, 19:51

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.12.2012, 19:51

Помогаю со студенческими работами здесь

Переставить элементы массива так, чтобы сначала шли нули, потом отрицательные, а затем положительные элементы
Дан одномерный массив, который содержит не более 60 вещественных чисел, среди которых есть...

Из одного массива в другой переписать сначала положительные элементы, затем отрицательные
program P7; uses crt; var Z: array of integer; R: array of integer; i,k: integer; Begin...

Массив упорядочить так, чтобы сначала шли положительные элементы, в порядке следования, а затем отрицательные
дан одномерный массив упорядочить так, чтобы сначала шли положительные элементы, в порядке...

Отсортировать сначала отрицательные числа, затем положительные и затем ноль
Помогите, пожалуйста, составить программу сортировки массива, так, чтобы она сортировала сначала...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх