Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 1 включительно. написать программу, которая находит минимальный из чётных элементов массива, затем уменьшает все элементы массива, кратные 5, на значение этого минимального элемента, и выводит изменённый массив. если в массиве нет чётных элементов, он остаётся без изменений. например, из массива7, 5, 2, 4, 8, 10, 14, 15программа должна получить массив7, 3, 2, 4, 8, 8, 14, 13язык pascal

Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.

function ReadInteger(prompt: string): integer;
        Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры

function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
        Возвращает массив размера n, заполненный случайными целыми значениями

function Println(delim: string := ' '): sequence of T;
      Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.

procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0);
        Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется