Дан массив, содержащий 2018 положительных целых чисел, не превышающих 10000. Необходимо найти и вывести максимальный из тех элементов этого массива, восьмеричная запись которых содержит не менее четырёх цифр и оканчивается цифрой 4. Если таких чисел в массиве нет, ответ считается равным нулю.

Ответ

Автор - Puz1koO

var i,j,a,max:integer;

begin

max:=0;

for j:=1 to 10 do

begin

a:=random(999)+1;

write(a:4);

if (a>=512) and (max<a) and (a mod 8 = 4)

then max:=a;

end;

writeln;

if max = 0 then writeln('Таких нет') else

writeln('max: ',max);

end.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.