Var a:integer;
begin
read(a);
if a>0 then a:= sqr(a)
else write('число отрицательное');
end.
Различные windows быстрей и лучше работает.
Sub f1()
Dim a, b,
c, d, cord, x1, x2 As Single
a =
InputBox(" x^2")
b =
InputBox(" x")
<span>c = InputBox(" свободный")</span>
d = 0
d = (b * b) - 4 * a * c
<span>If d
< 0 Then MsgBox ("решений нет")</span>
cord =
Sqr(d)
x1 =
(-b + cord) / (2 * a)
x2 =
(-b - cord) / (2 * a)
if d = 0 then msgbox CStr(x1)
MsgBox ("корни квадратного уравнения
равны " + CStr(x1) + "и" + CStr(x2))
End
Sub
Фрагмент программы вначале помещает в переменную m значение элемента массива a[4]=7. Далее в цикле просматриваются элементы массива с номерами от 3 до 6 и сравниваются с текущим значением m. В случае, если значение m окажется меньше очередного элемента, значение этого элемента заносится в m. Легко видеть, что это алгоритм нахождения максимума среди элементов a[3]..a[6]. На выводе будет значение m=12.
<em>Ответ:12</em>
Program n1;
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(20);
if a[i] mod 2<>0 then write(a[i],' ');
end;
end.