For
он может идти с нарастанием
for i:=1 to 10 do
и с убыванием
for i:=10 downto 1 do
14:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / x + SIN(x * x)
ELSE
PRINT "y("; x; ") = "; x + 1 / (x * x)
END IF
NEXT x
END
15:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / (x * x) + 1
ELSE
PRINT "y("; x; ") = "; x - 5
END IF
NEXT x
END
Начало красный стой жёлтый готовся зелёный иди конец
Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
<span>end.</span>
В три десятом царстве в неком тексте был народ килобайт было внем семей 1024. Каждую семью звали байт .В каждой семье жило 8 бит .