Program mathlover12;
const
n = 6; {Количество элементов массива}
var
a:array[1..n] of integer;
s:string;
i,min,max: integer;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{вводим элементы массива}
writeln; writeln('Введите ',n,' чисел:');
for i:=1 to n do read(a[i]);
{Ищем min и max}
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
{Выводим произведение min и max}
writeln; writeln;
writeln('Произведение min и max равнo ',min*max);
end.
1) summ=0;
k=32+35*2;
for (i=31;i<k;k=k-2)
summ+=i;
std::cout>>summ;
2) summ=0;
k=38+36;
for (i=38;i<k;i++)
summ+=i;
std::cout<<summ;
3) //число n может делиться нацело числами из промежутка от [1;n/2] (только 1 - очевидный делитель, его не учитываем)
kolvo=0;
std::cin>>n;
for (i=2;i<1+n/2;i++)
if (n%i==0) kolvo++;
std::cout<<kolvo;
4) //интервал (m;k) в круглых скобках, значит начальное число m+1, а конечное k-1
std::cin>>M>>K;
for (i=M+1;i<K;i++) //просто к, а не к-1 т.к. когда i будет равно k-1, цикл выполнится в последний раз, как нам и нужно
{
if (i%5==0) kolvo++;
}
std::cout<<kolvo;
