Переведите из паскаля в бейсик . m: =0 for i: =1 to n do begin if (a[i] mod 16=11 and (a[i]> m) then m : = a[i]; end ; writeln (m)

Смотря какой бейсик

M = 0
For i = 1 to N 
  if (A(i) Mod 16 = 11) and (A(i) > M) Then
    M = A(i)
  end if
next i

print m