Переведите из паскаля в бейсик .
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)
Ответы
Ответ дал:
0
Смотря какой бейсик
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
Вас заинтересует
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад