Дан массив, содержащий 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.

bigman4 bigman4    3   29.07.2019 07:40    6

Ответы
GoG353 GoG353  03.10.2020 16:24
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.

ответ примерно будет одинаковым, так как очень много цифр в массиве
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика