1) составьте программу ввода элементов массива а[1… 8 ] с клавиатуры и вывода на…

program z1; var a: array [1… 8] of integer; i: integer; beginfor i: =1 to 8 doread (a[i]); writeln; for i: =1 to 8 do if a[i] < 0thenwrite (a[i]); end. program z2; var b: array [1… 6] of integer; i: integer; beginfor i: =1 to 8 doread (b[i]); writeln; for i: =1 to 8 do if b[i] > 0thenwrite (b[i]); end.