тут 2 задания за правильный ответ подпишусь и 5 звезд поставлю

Створити масив дійсних чисел від 1 до 5. Знайти мінімальне та максимальне значення. Знайти сумму мінімального та максимального значення.

Объяснение:

0 строка - оголошення процедури

1 строка - оголошення зміних та надання їм типу цілих чисел

2 -оголошення масиву

3- оголошення змінних та надання їм типу дійсних чисел

4-початок

5-

6-цикл з лічильником та присовення знінній і значення 0

7-перетворення масиву у з рядкового типу у дійсний

8-

9-цикл з лічильником  та присовення змінній і значення 1

10-перетворення з рядкового типу у цілі числа

11- перетворення з дійсного типу у рядковий

12-кінець

13-

14-присвоення змінній значення

15-присвоення змінній значення

16-присвоення змінній значення

17-цикли з лічильником  та присвоення змінній і значення 2

18-умова при виконанні якої max:=А[i]

19-

20-цикли з лічильником з  присвоєнням змінній і значення 1

21-умова при виконанні якої min:=А[i]

22-

23-

24-кінець

25- присвоєння рядкового типу

26-

27-знаходження сумми

28-

29-присвоєння рядкового типу

30-

31-кінець

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Where((x,i)->i.IsOdd).Println; // для №1
  Writeln('Сумма =',a.Where((x,i)->i.IsEven).Sum); // для №2
end.

Пример
n= 13
-2 33 -49 49 50 -48 -11 27 47 10 17 22 38
33 49 -48 27 10 22
Сумма =90

№3
begin
  var a:=ArrRandom(15,-99,99); a.Println;
  a[a.IndexMax]:=0; a.Println
end.

Пример
34 -62 -42 98 44 -56 9 -69 85 55 -86 -32 83 -94 -19
34 -62 -42 0 44 -56 9 -69 85 55 -86 -32 83 -94 -19