Дан массив, содержащий 2018 положительных целых чисел, не превышающих 10000. Необходимо найти и вывести максимальный из тех элементов этого массива, восьмеричная запись которых содержит не менее четырёх цифр и оканчивается цифрой 4. Если таких чисел в массиве нет, ответ считается равным нулю.
More Questions From This User See All
Answers & Comments
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.