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

А) var a: array[1… 8] of integer; i: integer; beginfor i: =1 to 8 do read (a[i]); for i: =1 to 8 do if (a[i] <0) then writeln (a[i]); end. Б) var b: array[1… 8] of integer; i,c: integer; beginrandomize; for i: =1 to 8 do beginb[i]: =random (10)+1; if (b[i] mod 2=1) then inc (c); end; writeln (c); end. Не забывай отмечать лучший ответ!