Дан массив А из N целочисленных элементов.

1)Заполнить массив А целыми числами в интервале[1,100] и вывести на экран.Найти максимальный четный элемент и вывести его на экран.
2)Заполнить массив А целыми числами в интервале[1,100] и вывести на экран.Найти второй минимальный нечетный элемент и вывести его на экран.

PROGRAM Task1_1;constn = 10;VAR a: array [1..n] of integer; I,M,H: integer;BEGIN writeln('Исходный массив:'); For I := 1 to n do begin a[I] := RANDOM(1,200); write(a[I]:4); END; FOR I := 1 TO n DO IF A[I] mod 2 = 0 THEN IF A[I] DIV 10 mod 10 > 5 THEN M := M + 1; writeln; writeln('Кол-во НУЖНЫХ элементов: ', M); END.

но переделать на эти 2 задачи

ок?

Во-первых, как Вам надо, следует указывать в вопросе, ДО получения ответа, а не после. А во-вторых, "не ОК", - с чего это я буду делать двойную работу, да еще и в стиле наших предков?

Если ваш учитель не может давать современный стиль программирования, то это не моя вина, а ваша беда.

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), 1, 100); a.Println;      // общее

 Println('Максимальный четный ', a.Where(t -> t.IsEven).Max);   // задача 1

 Print('Второй минимальнывй нечетный');                         // задача 2

 a.Where(t -> t.IsOdd).OrderDescending.Skip(1).Take(1).Println  // задача 2

end.

Пример

n= 15

67 8 60 1 96 40 73 25 39 93 64 89 40 69 9

Максимальный четный  96

Второй минимальнывй нечетный 89