1) Дан

одномерный массив А[N], - целых чисел.

Заменить все большие 7 члены массива числом 7. Найти количество таких членов.

2)

Задан

массив из 10 элементов, найти произведение элементов массива.

Задача №3. Задан массив из n элементов, найти

среднее арифметическое элементов массива

Задача №4. Дан массив из n элементов, найти

количество положительных чисел.

Задача №5. Дан массив из n элементов, найти

количество четных и нечетных чисел в массиве.

Var a:array of integer;

n, i, k:integer;

begin

readln (n) ;

setlength (a, n) ;

for i:=0 to n-1 do begin

read (a[i]) ;

if a[i]>7 then begin a[i]:=7; k+=1; end;

end;

writeln (k) ;

for i:=0 to n-1 do

write (a[i],' ') ;

end.

var a:array[1 ... 10] of integer;

i, p:integer;

begin

p:=1;

for i:=1 to 10 do begin

read (a[i]) ;

p*=a[i];

end;

writeln (p) ;

end.

var a:array of integer;

i, sr, n:integer;

begin

readln (n) ;

setlength (a, n) ;

for i:=0 to n-1 do begin

read (a[i]) ;

sr+=a[i];

end;

writeln (sr/n:3:2) ;

end.

var a:array of integer;

n, i, k:integer;

begin

readln (n) ;

setlength (a, n) ;

for i:=0 to n-1 do begin

read (a[i]) ;

if a[i]>0 then k+=1;

end;

writeln (k) ;

end.

var a:array of integer;

n, i, k1, k2:integer;

begin

readln (n) ;

setlength (a, n) ;

for i:=0 to n-1 do begin

read (a[i]) ;

if odd (a[i]) then k2+=1

else k1+=1;

end;

writeln (k1,' ', k2) ;

end.