Рассмотрите алгоритм, в котором используется функция. а) Укажите имя функции.
Определите количество аргументов, которое
содержит функция.
Б) Определите, сколько раз программа вызовет
функцию при исполнении алгоритма.
с) Определите число, которое будет выведено на
экран в результате выполнения.

def F(x):
return 4* (х-5)
a = -1
b = 3
M=a
R = F(а)
for t in range(a,b+1):
if F(t) = R:
M=t
R = F(t)
print(M)

1. var a: array[1..100] of Integer ;
i,n,p: integer;
begin
p:=1;
Writeln('Введите количество элементов в массиве');
Readln(n);
Writeln('Масив');
for i:=1 to n do
begin
a[i]:=Random(10);
Write(a[i]:3);
if a[i] mod 2 = 0 then p:=p*a[i];
end;
Writeln;
Writeln('Произведение четных элементов массива = ', p);
end.

2. var a: array[1..10] of Integer ;
i,c,sum,n: integer;
begin
Writeln('Введите число');
Readln(c);
for i:=1 to 10 do
begin
Writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i] > c then
begin
sum:=sum+a[i];
n:=n+1;
end;
end;
Writeln('Среднее арифмитическое элементов массива которые превышают ', c, ' = ',sum/n);
end.

В этой проге 1 и 2
program p1;
uses crt; Const n = 10;
var a:array [1..n] of integer;
i,p,c:integer;
k,sr:real;
begin
read(c);
 for i := 1 to N do begin
 a[i]:= random(21)-10;
 write(a[i]:4);
 end;
 writeln;
 p:=1;
 sr:=1;
  for i:=1 to N do begin
   If (a[i]mod 2 = 0) and (a[i]<>0) then begin
    p:=p*a[i];
    end;
    If c<=a[i] then begin
    sr:=a[i]*sr;
    K:=k+1;
    end;
   
    end;
    sr:=sr/k;
   writeln('Произведение чётных :',p);
   writeln('Среднее арифметическое ',sr:5:2);

end.
Только всё равно проверь!