Предмет: Информатика,
автор: IlyaKustov16
Переведите из паскаля в бейсик .
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
Интересные вопросы
Предмет: Химия,
автор: shponkasasha
Предмет: Геометрия,
автор: stxzyuh1
Предмет: Русский язык,
автор: ekremkanovaajgerim71
Предмет: Математика,
автор: sanjar51
Предмет: Математика,
автор: Liliagh666