//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqInteger(ReadInteger).Where(x->x.IsEven).Min);
end.
const n=5;
var a: array [1..n] of real;
i: integer;
begin
for i:=1 to n do begin readln(a[i]);
if i mod 2=1 then a[i]:=sqr(i);
writeln(i,' элемент массива равен : ',a[i]);
end;
end.
<span>а := 10 ⇒ значение 10 помещается в а
b := 4 ⇒ значение 4 помещается в b
b := 200-а*b ⇒ 200-10×4 = 160 помещается в b, заменяя значение 4
а := b/20*а</span> ⇒ (160/20)×10 = 80 помещается в a, заменяя значение 10
<u>80</u>
Получится правильный шестиугольник — фигура с 360° : 60° = 6 углами и углом 180° - 60° = 120°.
(Повтори 360 [...] — повторяет 360 раз то, что в скобках, потом в цикле чертит линию длиной 30 и потом поворачивает на 60°).
Свєта говорит правду
Аня неправду
Оля через раз но севодня не правду