В последовательности из 15 целых чисел найти максимальный элемент из четных.
10-11 класс
|
Помогите пожалуйста написать программу)
В цикле проверяете (a mod 2) равно ли нулю, то бишь равен ли нулю остаток. Если да - число четное. одновременно с этим первое четное число кладете в переменную max, а остальные четные сравниваете с этой переменной, если какое-то число больше - его кладете в переменную max. Ясно? Если нет, могу написать программу, но лучше чтобы вам было ясно
UPD: можно через массивы, но это не хардкорно
a, max, counter : integer;
begin
max := 0;
for counter = 1 To 15 Do
begin
writeln("Write ur number:");
readln(a);
if (a mod 2) = 0 then
if a > max then max := a;
end;
writeln(max);
readln();
end.
–––––––––––––––––––––––––––––––––––
Вам помог Б-г
Другие вопросы из категории
в четных ячейках . Помогите пжл , и блок схема
Срочно надо)
Вычислите:
y= x2+3x,если x<-2 корень 2x-5 ,если x≥ -2
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
простые операции с матрицами: транспонирование, умножение на число, сложение и перемножение двух матриц. Значения матриц задавать случайным образом, выбор операции предоставлять пользователю.
Дана последовательность из n целых чисел. Найти количество элементов этой последовательности, кратных числу К.