В мене проблема потрібно здать завтра 14 задач.

[DiNis]

В мене проблема потрібно здать завтра 14 задач.Поможіть хто знає і в кого є время.Задачі не важкі но я їх чогось не можу понять.
Цикли:1.Известны оценки по физике каждого из 20 учеников
класса. Определить среднюю оценку по классу.
2.Даны числовой ряд и некоторое число ε. Найти сум
му тех членов ряда, модуль которых больше или равен ε.
Общий член ряда имеет вид:An=n!/n v ctepeni n.
Масиви:3Дан массив. Все его элементы уменьшить на число а.
4.Найти сумму всех элементов массива вещественных
чисел, больших заданного числа.
5.В автопарке при обработке путевых листов получе
ны два массива: массив S(n) пробега автомашины при n вы
ездах и массив B(n) соответствующего расхода бензина. На
писать программу, которая вычисляет средний пробег и средний расход бензина
за один выездю
6.В двухмерном массиве вещественных чисел найти
номер строки, для которой среднеарифметическое значение
ее элементов минимально.
7.Определить максимальный элемент главной диагонали массива.
8.Дан двухмерный массив. Найти сумму элементов в строках с k-й по р-ю
Запісі:
9.Известна информация о багаже (количество вещей
и общий вес багажа) 24 пассажиров. Найти:число пассажиров, имеющих более двух вещей;
10.В библиотеке имеются книги, газеты, журналы. Для
каждого печатного издания указать название, год выпуска (для книги), дату выпуска (для газет и журналов), автора
(для книги), редактора (для газеты), состав редколлегии (для
журнала), объем. Вывести информацию об изданиях, вышедших в заданном году.
Множини:
11.Имеется множество, содержащее натуральные чис
ла из некоторого диапазона. Сформировать два множества,
первое из которых содержит все простые числа из данного
множества, а второе — все составные.
Рядки:
12.Дана строка, содержащая текст, заканчивающийся
точкой. Вывести на экран составляющие ее слова из трех букв.
13.В записке слова зашифрованы — каждое из них за
писано наоборот. Расшифровать сообщение.
14.Дана символьная строка. Зашифровать в ней все
латинские путем помощью циклической подстановки
A→B→C→...→Y→Z→A.Відповідь надішліт на Dinis1542@mail.ru.
ПЛЗ.

[alex_fcsm]

const n=20;
var i:integer;
    a:array[1..n] of integer;
    Mo:real;
    
begin
randomize;
 for i:=1 to n do
  begin
  a[i]:=2+random(4);
  write(a[i]:2);
  end;
 writeln;
 mo:=0;
 for i:=1 to n do
  mo:=mo+a[i];
  mo:=mo/n;
  writeln(mo);
end.

[Alar]

В фриланс. платите деньги за работу.

[alex_fcsm]

var i:integer;
    ksi,sum,temp:real;
    
function fact(x:integer):longint;
var j:integer;
    res:longint;
begin
res:=1;
for j:=1 to x do
 res:=res*j;
fact:=res;
end;

function power(x,y:integer):longint;
var j:integer;
    res:longint;
begin
res:=1;
for j:=1 to y do
 res:=res*x;
power:=res;
end;
    
begin
writeln('Input ksi');
readln(ksi);
temp:=0;
i:=1;
repeat
sum:=sum+temp;
temp:=fact(i)/power(i,i);
inc(i);
until temp<=ksi;
writeln('Summa:',sum);
end.

[alex_fcsm]

const n=20;
var i:integer;
    a:array[1..n] of real;
    x:real;
    
begin
writeln('Input a');
readln(x);
for i:=1 to n do
 begin
 a[i]:=random(100);
 write(a[i]:4:0);
 end;
 writeln;
 for i:=1 to n do
  begin
   a[i]:=a[i]-x;
   write(a[i]:4:0);
  end;
 
end.

[alex_fcsm]

const n=20;
var i:integer;
    a:array[1..n] of real;
    x,sum:real;
    
begin
writeln('Input a');
readln(x);
for i:=1 to n do
 begin
 a[i]:=random(100);
 write(a[i]:4:0);
 end;
 writeln;
 sum:=0;
 for i:=1 to n do
  if a[i]>x then sum:=sum+a[i];
 writeln(sum);
 
end.

[alex_fcsm]

const n=5;
var i:integer;
    s,b:array[1..n] of real;
    so,bo:real;
    
begin
for i:=1 to n do
 begin
 readln(s[i]);
 readln(b[i]);
 end;
 so:=0;bo:=0;
 for i:=1 to n do
  begin
   so:=(s[i]/i)+so;
   bo:=(b[i]/i)+bo;
  end;
 writeln('Run:'(so/n):6:2);
 writeln('Fuel:'(bo/n):6:2);
end.

[alex_fcsm]

const n=5;
      m=7;
var i,j:integer;
    a:array[1..n,1..m] of real;
    min,p:real;
    
function Sr(x:integer):real;
var z:integer;
    res:real;
begin
res:=0;
 for z:=1 to m do
   res:=a[x,z]+res;
Sr:=res/m;
end;
    
begin
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3:0);
   end;
  writeln;
 end;
 p:=sr(1);min:=1;
 for i:=2 to n do
  if Sr(i)<p then begin
                   p:=Sr(i);
                   min:=i;
                  end;
writeln(min:2:0,' ',p:5:2);
end.

[alex_fcsm]

const n=5;
var i,j:integer;
    a:array[1..n,1..n] of real;
    max:real;
    
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3:0);
   end;
  writeln;
 end;
 i:=2;j:=2;max:=a[1,1];
 while i<=n do
  begin
   if a[i,j]>max then max:=a[i,j];
   inc(i);inc(j);
  end;
writeln(max);
end.

[alex_fcsm]

const n=10;
var i,j,k,p:integer;
    a:array[1..n,1..n] of real;
    sum:real;
    
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3:0);
   end;
  writeln;
 end;
repeat
writeln('Input k');
readln(k);
until k<=n;
repeat
writeln('Input p');
readln(p);
until (p<=n)and(p>=k);
sum:=0;
for i:=k to p do
 for j:=1 to n do
  sum:=sum+a[i,j];
writeln('Summa:',sum:5:0);
end.