Дан массив, содержащий 2016 положительных целых чисел, не превосходящих 1000. Нужно
Дан массив, содержащий 2016 положительных целых чисел, не превосходящих 1000. Необходимо найти и вывести наибольший из тех частей этого массива, чётность которых совпадает с чётностью произведения всех частей.
К примеру, в массиве из 6 элементов, одинаковых соответственно 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.
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] gt; k) then
k := a[i];
writeln(k);
end.
ответ приблизительно будет схожим, так как очень много цифр в массиве
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.