Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 1 - id1007328120210523 от Майя123 23.05.2021 21:59

Question

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

Майя123 · Accepted Answer

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);
        Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется

MOGZ ответил