1. Одномерный массив заполнен случайным образом. Найти количество четных…

1 ЗАДАЧА: var count,i: integer; A: array [1… 30] of integer; beginfor i: =1 to 30 dobegin A[i]: =-100+random (206); writeln ('A[',i,']=', A[i]); end; for i: =1 to 30 do if (A[i] mod 2=0) then inc (count); Writeln; Writeln; Writeln ('Кол-во четных элементов: ', count); end.2 ЗАДАЧА: const N=30; var count,i: integer; A: array [1… N] of integer; beginfor i: =1 to N dobegin A[i]: =-15+random (22); writeln ('A[',i,']=', A[i]); end; for i: =1 to 30 do if (A[i] mod 3=0) then A[i]: =-A[i]; Writeln; Writeln; for i: =1 to N do writeln ('A[',i,']=', A[i]); end.