Волоцкий
4 год назад
Переведите из паскаля в бейсик . M:=0For I:=1 to n do beginIf (a[i] mod 16=11 and (a[i]>m)Then m := a[i];End ;Writeln (m)
ОТВЕТЫ
Леондий
Oct 24, 2020
Смотря какой бейсик
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 = 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
138
Смежные вопросы:
