Дан целочисленный массив из 7 элементов: 1) подсчитать произведение элементов массива...

Question

Дан целочисленный массив из 7 элементов: 1) подсчитать произведение элементов массива кратных 5 и кратных 3. 2)подсчитать среднее значение четных элементов массива. 3) найти минимальное значение среди элементов массива <25 и положительных и номера,соответствующего элемента.

Answer 1

Var a:array[1..7]of integer;
     p3,p5,s,i,k,min,n:integer;
     srz:real;
begin
 p5:=1; p3:=1; min:=25;
 for i:=1 to 7 do
  begin 
   read(a[i]);
    if a[i]<>0 then
     begin
      if a[i] mod 5=0 then p5:=p5*a[i];
      if a[i] mod 3=0 then p3:=p3*a[i];
      if a[i] mod 2=0 then
       begin
        s:=s+a[i];
        k:=k+1;
       end;
      if a[i]       begin
        min:=a[i];
        n:=i;
       end;
     end;
  end;
 srz:=s/k;
 writeln;
 write('proizv kratnih trem:',p3,' proizv kratnih peti:',p5,' srednee znachenie chet elementov:',srz,' minimalnoe:',min,' nomer minimalnogo:',n);
end.