🗊Презентация Одномерные массивы целых чисел. Алгоритмизация и программирование

2. Написать программу, вычисляющую сумму и количество положительных элементом массива, заполненных случайными числами от -10 до 10. В массиве 8 элементов. 2. Написать программу, вычисляющую сумму и количество положительных элементом массива, заполненных случайными числами от -10 до 10. В массиве 8 элементов. program  z_2; Var i, k, s: integer; a: array[1..8] of integer; Begin randomize; for i:=1 to 8 do a[i]:=random(20)-10; for i:=1 to 8 do write (a[i],' '); k :=0; s :=0; for i := 1 to 8 do if a[i] > 0 then begin k := k+1; s := s+a[i] end; writeln('Количество положительных элементов', k); writeln('Сумма положительных элементов',s) End.

3. Написать программу, вычисляющую количество и сумму элементов одномерного массива кратных четырем. Массив заполнен 12 случайными целыми числами из диапазона от 0 до 40. 3. Написать программу, вычисляющую количество и сумму элементов одномерного массива кратных четырем. Массив заполнен 12 случайными целыми числами из диапазона от 0 до 40. Слова для справки: mod – получение целого остатка деления. Например, k: = 7 mod 2. Результат: k=1. … k :=0; s :=0; for i := 1 to 10 do if a[i] mod 4 = 0 then begin k := k+1; s := s+a[i] end; …