КТО ЗНАЕТ ЯЗЫК PYTHON РЕШИТЕ ДАННЫЕ ЗАДАЧИ, Задача 1.

Надрукувати числа від 1 до 10

Збережіть файл під іменем Пр3_1.py

Задача 2.

Генерувати випадкові числа від 1 до 6, поки не випаде 1 Збережіть файл під іменем ПIP3_2.p

Задача 3.

3 клавіатури вводиться число. Знайти суму чисел від 1 до цього

числа

Збережіть файл під іменем Пр3_3.ру

Задача 4.

3 клавіатури вводиться два числа. Знайти суму чисел, які

розміщені між ними Збережіть файл під іменем ПР3_4.ру.

Задача 5.

З клавіатури вводиться два числа. Знайти суму парних чисел, які

розміщені між ними

Збережіть файл під іменем ПР3_5 ру

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(n*4*'-');
  var b:=a.Rows.Select(row->row.Where(t->t.IsOdd).DefaultIfEmpty.Average)
    .ToArray;
  b.Println;
end.

Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица ***
  40 -38  16 -70  26
  87   7 -31  99  34
 -34 -47 -33  32  56
  66  71  41   7  80
  55  42 -22   7  86

0 40.5 -40 39.6666666666667 31

Begin
  var i, j: integer;
  var s: real;
  var m: array[1..20] of integer;
  var n: array[1..20] of integer;

  { формируем массив и заодно вычисляем сумму элементов }
  for i := 1 to 20 do begin
    m[i] := random(1000);
    s := s + m[i];
  end;

  { печать массива }  
  for i := 1 to 20 do begin
    writeln(m[i]);
  end;
  writeln('');
 
  { среднее арифметическое }
  s := s / 20;
  writeln(s);
 
  j := 0;
  for i := 1 to 20 do begin
    if m[i] > s then begin
      j := j + 1;
      n[j] := m[i];
    end;
  end;
 
  writeln('');
 
  for i := 1 to j do begin
    writeln(n[i]);
  end;

end.