На языке паскаля составьте программу вычисления суммы факториалов всех чётных чисел от m до n.

#include <iostream>
#include <cmath>
using namespace std;

void main() 
{
int n,sum=0; 
float y,k=0; 
cin >> n; 
int *mass = new int[n]; 
for (int i = 0;i < n;++i) 
{
cin >> mass[i]; 
} 
for (int i = 0;i < n;++i) 
{ 
if (mass[i] >0 )
{
k++;
y=pow(mass[i],2); 
cout<<y;
sum+=mas[i]
}
} 
system("pause"); 
}

2)#include <iostream>
#include <cmath>
using namespace std;

void main() 
{
int s,p,r,day=0;
cin >> s>>p>>r;
float km=s;
while(r>km)
{
km+=km*p/100;
day++;
}
cout << " km = " << km << " day = " << day << endl;
system ("pause");
}

Если не видно на скриншоте

Program v1;

var a:array[0..30]of integer;            

i,min,max,n,t:integer;

begin

write('Введите размерность матрицы: '); readln(n);                

randomize;

for i:=1 to n do a[i]:=random(100)-50;                            

write('Значение матрицы: ');                                      

for i:=1 to n do write(a[i]:5); writeln;    

   max := 1;

 min := 1;

 t:=0;

 for i := 1 to n do

 begin

   if a[i] > a[max] then

     max := i

   else

     if a[i] < a[min] then

       min := i;

 end;

 for i := 1 to n do

   t:=a[min]*a[max];

 WriteLn('Среднее арифметическое: ', (a[max] + a[min])/2 ,' ' ,'Произведение максимального элемента на минимальный равно:', t);

end.