Дан массив, содержащий 2018 положительных целых чисел, не превышающих 1. необходимо найти и вывести максимальный из тех элементов этого массива, восьмеричная запись которых содержит не менее четырёх цифр и оканчивается цифрой 4. если таких чисел в массиве нет, ответ считается равным нулю.

// 7
begin
    var arr := ArrRandom(13);
    arr :=  arr.OrderByDescending(x->x).ToArray;
    arr.Println;
    Print('Sum = ', arr.Where(x->x>10).Sum() + newline +
            'Count = ',arr.Where(x->x>10).Count);
end.

// 8
begin
   var arr := ArrRandom(10);
   Sort(arr);
   arr.Println;
   Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline +
           'Count = ', arr.Where(x -> x mod 5 = 0).Count);
end.

// 9
begin
   var arr := ArrRandom(15);
   arr := arr.OrderByDescending(x -> x).ToArray;
   arr.Println;
   Print('array elements squares sum is = ', arr.Sum(x -> x * x));
end.

Обычно предполагается, что нам известны какие-либо начальные данные. Тогда для простоты, буду считать что нам известно основание и высота к этому основанию. В таком случае

S = основание * высоту / 2

Что нужно сделать?

1) Запросить у пользователя ввод длины основания

2) Запросить у пользователя ввод длины высоты

3) Вычислить площадь

4) Вывести площадь на экран

Определимся с данными. У нас будет переменная S, основания и высоты. Все будут real, ведь пользователь может ввести и не целое число.

program ploshad;

var S, osnovanie, visota:real;

begin

   writeln('Вычисление площадь треугольника по основанию и высоте');

   writeln('Введите длину основания ');

   read(osnovanie);

   writeln('Введите длину высоты ');

   read(visota);

   S:=osnovanie*visota/2;

   writeln('Площадь треугольника = ',S);

end.