//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) begin var a:=ArrRandom(10); println(a); for var i:=0 to 9 do if a[i] mod 2 =0 then print(a[i]); end.
DIM a AS SINGLE, b AS SINGLE, h AS SINGLE DIM x AS SINGLE, y AS SINGLE CLS INPUT "Vvedite a,b,h: ", a, b, h FOR x = a TO b STEP h y = 1 / 2 * LOG(x ^ 2) + 1 / x ^ 2 + 2 - 1 / 2 * LOG(2) / 3 PRINT "x="; x, "y="; y NEXT x END
DIM a AS SINGLE, b AS SINGLE, h AS SINGLE DIM x AS SINGLE, y AS SINGLE CLS INPUT "Vvedite a,b,h: ", a, b, h FOR x = a TO b STEP h y = 1 / 2 * LOG(x ^ 2) + 1 / x ^ 2 + 2 - 1 / 2 * LOG(2) / 3 PRINT "x="; x, "y="; y NEXT x END
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74