Дан массив, содержащий 2016 положительных целых чисел, не превышающих 1000. необходимо найти и вывести максимальный из тех элементов этого массива, чётность которых совпадает с чётностью произведения всех элементов. например, в массиве из шести элементов, равных соответственно 2, 3, 1, 5, 6, 4, произведение всех элементов чётно, значит, ответом будет максимальный чётный элемент, то есть 6. напишите на одном из языков программирования программу для решения этой . исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных. pascal. const. n=2016; var a: array[1..n] of integer; i, m, k: integer; begin for i: =1 to n do readln (a[i]); end.

Const
    n = 2016;

var
    a: array[1..n] of integer;
    i, m, k: integer;

begin
    randomize;
    m := 1;
    for i := 1 to n do
    begin
        a[i] := random(1000);
        m := m * a[i] mod 2;
//        write(a[i], ' ');
    end;
    
    k := -1;
    for i := 1 to n do
        if (a[i] mod 2 = m) and (a[i] > k) then
            k := a[i];
    
    writeln(k);
end.

ответ примерно будет одинаковым, так как очень много цифр в массиве

Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа.

Блез Паскаль появился на свет 19 июня 1623 года в городке Клермон-Ферран на юге Франции.

в 1640 году свет увидел «Опыт теории конических сечений», ставший основополагающим трактатом для дальнейших трудов в области геометрии.

в 1642 году Блез занимался разработкой чудо-аппарата. Его арифмометр, сделанный по принципу античного таксометра, выглядел как ящик с многочисленными шестеренками и позволял производить расчеты с шестизначными числами, а подсчет производился в полуавтоматическом режиме.

В конце 1646 года Блез Паскаль, узнав о трубке, изобретенной Торричелли, стал увлекаться физикой. Ученый начал ставить эксперименты, доказывая, что гипотеза Аристотеля о «боязни пустоты» имеет пределы.

Блез видоизменил этот эксперимент и сделал заключение, что верхняя часть трубки не наполнена парами химического вещества, тонкой материей или иной субстанцией. Результаты своей работы Паскаль опубликовал в трактате «Новые опыты, касающиеся пустоты», а далее стремился прийти к выводу, что столбик с ядовитым металлом удерживается давлением воздуха.

Кроме того, Блез Паскаль выпустил в свет рукопись «Трактат о равновесии жидкостей» (1653), сформировал идею гидравлического пресса и установил основной закон гидростатики, опровергнув учение древнегреческого философа.

в 1652 году удостоился признания и славы, презентовав свою суммирующую машинку шведской королеве Кристине.

Умер в 1662 году, Париж, Франция.

Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие. Таким образом, условный оператор - это средство ветвления вычислительного процесса.

Структура условного оператора имеет следующий вид:

if <условие> then <оператор1> else <оператор2>;

где if/ then/ else - зарезервированные слова (если, то, иначе);

<условие> - произвольное выражение логического типа;

<оператор1>, <оператор2> - любые операторы языка Object Pascal.