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

За 2 программы мог бы и побольше пкт накинуть ...

1)

Program 1z;

Var A: array [1 ... 100] of Integer; N, i: Byte; sa, t: Real;

Begin

Readln (N) ;

For i: = 1 to N do

Begin

Readln (A[i]) ;

If A[i] mod 3 = 0 then

Begin

sa:=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;

Begin

Readln (N) ;

For i:=1 to N do

Begin

Readln (A[i]) ;

If A[i] mod 7 = 0 then

Begin

s:=s+1;

B[s]:=A[i];

Writeln (B[s]) ;

End;

End;

End.