Решить в паскале
Задача 1
Дан массив, содержащий неотрицательные целые числа, не превышающие 10 000. В массиве присутствуют чётные и нечётные числа. Необходимо вывести:
— минимальный чётный элемент, если количество чётных элементов не больше, чем нечётных;
— минимальный нечётный элемент, если количество нечётных элементов меньше, чем чётных.
Например, для массива из шести элементов, равных соответственно 4, 6, 12, 17, 9, 8, ответом будет 9 — наименьшее нечётное число, поскольку нечётных чисел в этом массиве меньше.
Напишите на одном из языков программирования программу для решения этой задачи. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных.
Паскаль
const N=2000;
var a: array [1..N] of integer;
i, j, k, m: integer;
begin
for i:=1 to N do readln(a[i]);
…
end.
Задача 2
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -20 до 20 − сведения о температуре за каждый день ноября. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит максимальную температуру среди дней, когда были заморозки (то есть температура опускалась ниже нуля). Гарантируется, что хотя бы в один день ноября была отрицательная температура.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать части из них.
Паскаль
const N=30;
var a: array[1..N] of integer;
i, j, max: integer;
begin
for i:=l to N do readln(a[i]);
...
end
var a,b:integer;
begin
b:=0;
readln(a);
if a<10 then
begin
if a mod 2=0 then b:=1;
end;
if (a>=10) and (a<100) then
begin
if ((a div 10) mod 2=0) and (a div 10 <>0) then b:=b+1;
if ((a mod 10) mod 2=0) and (a mod 10 <>0) then b:=b+1;
end;
if (a>=100) and (a<1000) then
begin
if ((a div 100) mod 2=0) and (a div 100 <>0) then b:=b+1;
if (((a div 10) mod 10) mod 2=0) and ((a div 10) mod 10 <>0) then b:=b+1;
if ((a mod 10) mod 2=0) and (a mod 10<>0) then b:=b+1;
end;
writeln(b);
end.