Комментарии: Вот описание своего типа данных: typepArray=array [1… 15] of integer; Вот проверка на правильно введенноее значение от 1 до 15: while (N<1) or (n>15) do, если введешь неправильно спросит еще раз Подпрограммы: Ввод элементов массива с клавиатуры здесь: procedure InputArrayФункции возвращающей сумму четных элементов массива: function SummOfEvenФункции выводящей на экран минимальный элемент массива: function MinimalElementprogram ArrayProccessor; uses crt; type pArray=array [1… 15] of integer; var myArray: pArray; N: integer; procedure InputArray (var arrayToInput: pArray; n: integer); var i: integer; begin for i: =1 to n do begin write ('vvedite a[',i,']='); readln (arrayToInput[i]); end; end; function SummOfEven (arrayToProcess: pArray; n: integer): integer; var i: integer; res: integer; begin res: =0; for i: =1 to n do begin if not odd (arrayToProcess[i]) then res: =res+arrayToProcess[i]; end; SummOfEven: =res; end; function MinimalElement (arrayToProcess: pArray; n: integer): integer; var i: integer; res: integer; beginres: =arrayToProcess[1]; for i: =2 to n dobegin if (res>arrayToProcess[i]) then res: =arrayToProcess[i]; end; MinimalElement: =res; writeln ('minimal element: ', res); end; beginclrscr; N: =0; while (N<1) or (n>15) dobeginwrite ('Vvedite kol-vo elementov massiva ot 1 do 15: '); readln (N); end; InputArray (myArray, n); writeln ('summa chetnih: ', SummOfEven (myArray, n); MinimalElement (myArray, n); readln; end.
