Переведите из паскаля в бейсик.

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)

Question

Лизуня

21 декабря, 22:59

+4

Ответы (1)

Знаете ответ на вопрос?

Геннадий · Answer 1

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

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

Переведите из паскаля в бейсик.M:=0For I:=1 to n do beginIf (a[i] mod 16=11 and (a[i]>m)Then m : = a[i];End;Writeln (m)