1) составьте программу ввода элементов массива а[1 ... 8 ] с клавиатуры и вывода на экран элементов с отрицательными значениями;

2) составьте программу ввода элементов массива b[1 ... 6] с клавиатуры и вывода на экран элементов с положительными значемиями

program z1;

var

a:array [1 ... 8] of integer;

i: integer;

begin

for i:=1 to 8 do

read (a[i]) ;

writeln;

for i:=1 to 8 do

if a[i] < 0

then

write (a[i]) ;

end.

program z2;

var

b:array [1 ... 6] of integer;

i: integer;

begin

for i:=1 to 8 do

read (b[i]) ;

writeln;

for i:=1 to 8 do

if b[i] > 0

then

write (b[i]) ;

end.