Массив

[lolwto]

Дан массив Z(10) распечатать в массиве H сначала положительные а затем отрицательные элементы массива.

[Stilet]

Пожалуйста:

const z:array[1..10] of integer=(1,2,3,4,-5,6,7,8,9,0); 
var i:integer;
begin
 for i:=1 to 10 do if h[i]>=0 then write(h[i]:5);
 for i:=1 to 10 do if h[i]<0 then write(h[i]:5);
readln;
end.

[Bugrimov]

А зачем нужен массив H, разве нельзя проверяя массив Z тут же распечатывать его значения

[Serge_Bliznykov]

А зачем нужен массив H, разве нельзя проверяя массив Z тут же распечатывать его значения

согласен с вопросом!

Сообщение от Stilet

Пожалуйста:
const z:array[1..10] of integer=(1,2,3,4,-5,6,7,8,9,0);
var i:integer;
begin
for i:=1 to 10 do if h[i]>=0

Виталий, давайте начнём с того, что ваш код банально не откомпилируется, объявили Вы массив z, а обращаетесь к массиву h.
Да и вообще, если в условии не опечатка, вообще непонятно, что нужно получить!


Может условие задачи такое?

Дан массив Z(10) перенести в массив H сначала положительные а затем отрицательные элементы массива.

[Stilet]

давайте начнём с того, что ваш код банально не откомпилируется

Ага. А закончим на четком ТЗ:

Дан массив Z(10) распечатать в массиве H

P.S. Я специально написал так как заказано.

[Serge_Bliznykov]

Сообщение от Stilet

P.S. Я специально написал так как заказано.

Какой Вы, Виталий, однако, коварный человек!...

[Stilet]

Ну не ВУЗам же учить народ правильно ТЗ составлять?