составьте прграмму
Ответы
PascalABC.Net
begin
var n := ReadInteger('Введите размер массива');
var a := ArrRandom(n, 0, 50);
a.Println;
Println(if a.Where(z -> not Odd(z)).Count > a.Where(q -> Odd(q)).Count then a.Where(z -> not Odd(z)).Max else a.Where(q -> Odd(q)).Max);
end.
Variant 2
const
amax = 100;
var
a: array[1..amax] of integer;
i, Max, Count, Count2, n: integer;
begin
Randomize;
Writeln('Введите размер массива');
Readln(n);
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(1, 50);
Write(a[i], ' ');
if not Odd(a[i]) then Count += 1 else Count2 += 1;
end;
Writeln;
Writeln('Колличество четных элементов в массиве: ', Count);
Writeln('Колличество нечетных элементов в массиве: ', Count2);
Max := 1;
if Count > Count2 then
for i := 1 to n do
begin
if (a[i] > Max) and (not Odd(a[i])) then Max := a[i];
end
else
for i := 1 to n do
begin
if (a[i] > Max) and ( Odd(a[i])) then Max := a[i];
end;
Writeln('Максимальный элемент: ', Max);
end.
Тестовое Решение:
Введите размер массива
20
Исходный массив
1 22 29 7 1 42 27 47 19 37 30 19 21 41 47 31 40 15 22 33
Количество четных элементов в массиве: 5
Количество нечетных элементов в массиве: 15
Максимальный элемент: 47