Здание 1:
(можно "i.IsEven" заменить на "(i+1).IsEven", если считать индекс от 1)
Задание 2:
Примеры работ:
Здание 1:
beginvar a := ReadArrInteger(ReadInteger('N:')); a.Transform((x,i)->i.IsEven?0:x); a.Printend.(можно "i.IsEven" заменить на "(i+1).IsEven", если считать индекс от 1)
Задание 2:
const a=0; b=1; h=0.1; n=Trunc((b-a)/h); beginvar f: real->real := x-> x**2 / Tan(x) + ArcSin(x**2)**2;PartitionPoints(a,n*h,n).Foreach(x -> Writeln(x:3:1, f(x):6:2)) end.Примеры работ: