Напишите программу, которая в последовательности натуральных чисел определяет минимальное число минимальное чётное число. Программа получает на вход
5-9 класс
|
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное число. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное чётное число.
i, k, m, min, max:integer;
a, b:array[1..30000] of integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
max:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
k:=1;
for i:=1 to n do
if ((a[i] mod 2)=0) then begin b[k]:=a[i]; k:=k+1; end;
max:=b[1];
for i:=1 to k do
if max>b[i] then max:=b[i];
writeln(min, ' ', max);
readln;
end.
Другие вопросы из категории
этой книге ровно сто неверных утверждений" Какой из них правильный?
смогут напечатать материалы для школьной газеты за 1ч,Сколько времени они потратят на эту работу если будут выполнять ее все трое вместе
Читайте также
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.
Количество чисел не превышает 1000. Введеные числа не превышают 30 000.
программа должна вывести одно число - минимальное число, делящееся нацело на 7.
Завтра Гиа помогите!!!
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное число, оканчивающееся на 4.
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число минимальное число, оканчивающееся на 6.
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).