1) задан массив из N элементов. вычислить среднее арифметическое тех элементов, которые кратны 3. 2) Задан массив из N элементов. Сформировать новый массив из элементов, кратных 7.

За 2 программы мог бы и побольше пкт накинуть...1)Program 1z;Var A: array [1..100] of Integer; N, i: Byte; sa, t: Real;BeginReadln (N);For i:= 1 to N doBeginReadln (A[i]);If A[i] mod 3 = 0 thenBeginsa:=sa+A[i];t:=t+1;End;End;sa:=sa/k;Writeln (sa);Readln;End.2)Program 2z;Var A, B: array [1..100] of Integer; i, s, N: Byte;BeginReadln (N);For i:=1 to N doBeginReadln (A[i]);If A[i] mod 7 = 0 thenBegins:=s+1;B[s]:=A[i];Writeln (B[s]);End;End;End.