В задаче №4 надо ответить на во Какой вид цикла использован · Назовите переменную цикла · Сколько раз будет выполнен цикл · Что вычисляется внутри цикла · Что будет выведено (результат 1. Составьте программу вычисления произведения четных чисел из промежутка [-6; 5 2. Составьте таблицу значений функции y =x3 - 3x +3 на отрезке [-2; 8]. 3. Составьте программу вычисления суммы S=5+10+15+…+45+50. 4. var k, s: integer; begin s:=2; k:=0; while s < 66 do begin s:=s*4; k:=k+1; end; write(k); end.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var M:=ArrRandom(ReadInteger('x='),-50,50); M.Println;
  var pa:=M.Where(p->p>3).Average;
  Writeln('Среднее арифметическое чисел, превышающих 3: ',pa);
  var pm:=M.TakeLast(10).Max;
  Writeln('Максимум из десяти последних чисел: ',pm);
  var pp:=pm/pa;
  Writeln('Отношение двух найденных величин: ',pp);
  Writeln('Сформированный массив');
  var C:=M.Where(p->p>pp).ToArray; C.Println
end.

Пример
x= 15
2 -44 30 49 -36 47 -38 -21 -50 3 -5 50 37 -8 -18
Среднее арифметическое чисел, превышающих 3: 42.6
Максимум из десяти последних чисел: 50
Отношение двух найденных величин: 1.17370892018779
Сформированный массив
2 30 49 47 3 50 37

За в следующий раз никто программу не напишет вам
var mo,tu,we,th,fr,sa,su,a: ShortInt;
var b: Real;
Begin
Write('Температура воздуха в Понедельник: ');
Readln(mo);
Write('Температура воздуха во Вторник: ');
Readln(tu);
Write('Температура воздуха в Среду: ');
Read(we);
Write('Температура воздуха в Четверг: ');
Readln(th);
Write('Температура воздуха в Пятницу: ');
Readln(fr);
Write('Температура воздуха в Субботу: ');
Readln(sa);
Write('Температура воздуха в Воскресенье: ');
Readln(su);
a:=mo+tu+we+th+fr+sa+su;
b:=a/7;
Write('Средняя температура воздуха: ',b:0:2,' градусов.');
End.