1. Вмассиве А (11) случайных целых чисел (диапазон чисел [-10… 25]) определить: сумму…

1.var i,summa: integer; A: array [1… 11] of integer; beginsumma: =0; randomize; write ('Массив: '); for i: =1 to 11 do begin A[i]: =random (36) -10; write (A[i],'); end; writeln; for i: =1 to 11 do if A[i] mod 5=0 then summa: =summa+A[i]; writeln ('Сумма чисел кратных 5=',summa); end.2.var i,s: integer; A: array [1… 6] of integer; begins: =0; randomize; write ('Массив: '); for i: =1 to 6 do begin A[i]: =random (58) -4; write (A[i],'); end; writeln; for i: =1 to 6 do if A[i] < 7 then s: =s+1; writeln ('Количество элементов меньших 7: ',s); end.