СРОЧНО! 🥲🙏🏻помогите сделать задания по информатике. На Паскале

Question

Выполните задания: Напишите программы для следующих задач с использованием функций (процедур)
Задание 1.
Функция, которая принимает массив (список) чисел, а возвращает сумму четных чисел этого массива (списка).
Задание 2.
Функция, которая принимает массив (список) чисел и возвращает количество элементов, которые больше среднего значения всех элементов массива (списка).
Задание 3.
Функция, которая принимает массив (список) строк и возвращает массив (список) строк, длина которых больше 5 символов.
Задание 4.
Функция, которая принимает массив (список) чисел и возвращает Тrue если все элементы массива (списка) положительные, и False в противном случае.

mexahuk6 · Accepted Answer

Задание 1
Сумма чётных чисел массива
program SumEvenNumbers;

uses crt;

function SumEven(arr: array of Integer): Integer;
var
  i, s: Integer;
begin
  s := 0;
  for i := 0 to High(arr) do
    if arr[i] mod 2 = 0 then
      s := s + arr[i];
  SumEven := s;
end;

var
  nums: array[0..4] of Integer = (1, 2, 3, 4, 5);
begin
  writeln('Сумма четных чисел: ', SumEven(nums));
end.
Задание 2
Количество элементов больше среднего
program CountAboveAverage;

uses crt;

function CountAboveAvg(arr: array of Integer): Integer;
var
  i, s, cnt: Integer;
  avg: Real;
begin
  s := 0;
  for i := 0 to High(arr) do
    s := s + arr[i];
  avg := s / (High(arr)+1);
  
  cnt := 0;
  for i := 0 to High(arr) do
    if arr[i] > avg then
      cnt := cnt + 1;
  
  CountAboveAvg := cnt;
end;

var
  nums: array[0..4] of Integer = (1, 2, 3, 4, 5);
begin
  writeln('Количество элементов больше среднего: ', CountAboveAvg(nums));
end.
Задание 3
Массив строк длиной > 5 символов
program StringsLongerThan5;

uses crt;

type
  TStringArray = array of String;

function LongStrings(arr: TStringArray): TStringArray;
var
  i, j: Integer;
begin
  SetLength(LongStrings, 0);
  j := 0;
  for i := 0 to High(arr) do
    if Length(arr[i]) > 5 then
    begin
      SetLength(LongStrings, j+1);
      LongStrings[j] := arr[i];
      j := j + 1;
    end;
end;

var
  words, result: TStringArray;
  i: Integer;
begin
  SetLength(words, 5);
  words[0] := 'apple';
  words[1] := 'banana';
  words[2] := 'cat';
  words[3] := 'pineapple';
  words[4] := 'dog';

result := LongStrings(words);

writeln('Строки длиной больше 5:');
  for i := 0 to High(result) do
    writeln(result[i]);
end.
Задание 4
Проверка, что все числа положительные
program AllPositiveCheck;

uses crt;

function AllPositive(arr: array of Integer): Boolean;
var
  i: Integer;
begin
  AllPositive := True;
  for i := 0 to High(arr) do
    if arr[i] <= 0 then
    begin
      AllPositive := False;
      Exit;
    end;
end;

var
  nums: array[0..4] of Integer = (1, 2, 3, 4, 5);
begin
  if AllPositive(nums) then
    writeln('Все элементы положительные')
  else
    writeln('Не все элементы положительные');
end.
Эти четыре программы полностью решают твои задания с использованием 
функций
.