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

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]< min then         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.

программа:

#include

#include

using namespace std;

int main()

{

setlocale(lc_all, "rus");

int n; float a, b, d, x, f;

do{

cout < < "введи кол-во шагов="; cin > > n;

} while (n < = 2);

do{

cout < < "введите левую границу отрезка="; cin > > a;

cout < < "введите правую границу отрезка="; cin > > b;

if (a == b)

{

  cout < < "вы ввели точку, а не отрезок" < < endl;

  cout < < "введите ещё раз a и b: " < < endl;

  cout < < "a="; cin > > a;

  cout < < "b="; cin > > b;

}

} while (a == b);

x = a;

d = (b - a) / (n-1);

while (x< =b+d/10){

  if (x-n == 0)

  cout < < "x=" < < x < < " " < < "f(x) - нет значения"< < endl;

else

{

  f = ((sin(x - n)) / (x - n)) + exp(x - n);

  cout < < "x=" < < x < < " " < < "f(x)=" < < f < < endl;

}

x = x+d;

}

return 0;

}

пример:

введи кол-во шагов=10

введите левую границу отрезка=9

введите правую границу отрезка=11

x=9 f(x)=1.20935

x=9. f(x)=1.36161

x=9. f(x)=1.5231

x=9.7 f(x)=1.69812

x=9.9 f(x)=1.89278

x=10. f(x)=2.11546

x=10. f(x)=2.3772

x=10.5556 f(x)=2.69226

x=10.7778 f(x)=3.07881

x=11 f(x)=3.55976

Program pr1; uses crt; var  a: array[1..20] of integer;   i,j,max,ind : integer; begin  max: =a[ 1 ];   for i: =1 to 20 do    begin    writeln('введите цену(макс 20 товаров)');     readln(a[i])    end;   for i : =2 to 10 do    begin      if a [ i ] > max      then      begin      max: =a [ i ]      ind: =i;       end  end;   writeln('максимальная цена тавара ',a[i],'р. и ег оиндекс в массиве=',ind)end.