Для одновимірного масиву, що складається з n чисел, необхідно виконати завдання і вивести отримані результати. Знайти номер елемента з максимальним значенням. Необхідна блок-схема та перевірка.

1: program test1; var min, i: integer; num: array[1..5] of integer; begin writeln('введите 5 чисел (через пробел): '); readln(num[1], num[2], num[3], num[4], num[5]); min : = 0; for i : = 1 to 5 do begin if (num[i] < min) then min : = num[i]; end; if (min < 0) then begin writeln(); writeln('min = ', min); end else begin writeln(); writeln('вы не ввели отрицательных чисел! '); end; end. 2: program test2; var max, i: integer; num: array[1..10] of integer; begin writeln('введите 10 чисел (через пробел): '); readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]); max : = 0; for i : = 1 to 10 do begin if (num[i] > max) then begin if (num[i] mod 2 = 0) then max : = num[i]; end; end; if (max > 0) then begin writeln(); writeln('max = ', max); end else begin writeln(); writeln('вы не ввели четных положительных чисел! '); end; end.