Переведите из паскаля в бейсик . m: =0 for i: =1 to - вопрос №0116118648718 от natali1712 12.06.2022 17:37

Question

Информатика: Переведите из паскаля в бейсик . 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)

natali1712 · Answer

Смотря какой бейсикM = 0For i = 1 to N   if (A(i) Mod 16 = 11) and (A(i) M) Then    M = A(i)  end ifnext iprint m...

Переведите из паскаля в бейсик . 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)