Question

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

Answer 1

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.