Что можно сказать о массиве , сформированном следующим образом? а) for i: =1 to 10 do a[i] : = random (101)-50; б) for i : =1 to 20 do a[i] : = i; в) for i: =1 to 5 do a[i] : = 2*i-1;
Var v:real; begin write('Введите скорость в км/c: '); readln(v); if v<7.9 then writeln('Ракета упадет на Землю'); if v=7.9 then writeln('Ракета будет двигаться вокруг Земли по круговой орбите'); if (v>7.9) and (v<11.2) then writeln('Ракета будет двигаться вокруг Земли по эллиптической орбите'); if v=11.2 then writeln('Ракета будет двигаться вокруг Солнца по круговой орбите'); if (v>11.2) and (v<16.4) then writeln('Ракета будет двигаться вокруг Солнца по эллиптической орбите'); if v>16.4 then writeln('Ракета покинет Солнечную систему'); end.
Sub Rocket() Dim x As Single x = InputBox("Введите скорость ракеты в км/с") Select Case x Case Is < 7.91 MsgBox "Ракета упадет на Землю" Case 7.91 MsgBox "Ракета будет вращаться вокруг Земли по круговой орбите" Case Is < 11.2 MsgBox "Ракета будет вращаться вокруг Земли по эллиптической орбите" Case Is < 16.4 MsgBox "Ракета будет перемещаться в пределах Солнечной системы" Case Else MsgBox "Ракета покинет Солнечную систему" End Select End Sub
a) значение - случайное число из [-50;50]
б) значение равно индексу, например a[6]=6
в) значение - нечетное число
ну или както так