Pascal abc 1.В заданном числовом массиве каждый элемент с четным индексом заменить на нуль.
2.Составьте программу табулирования функции:

PascalABC.NET

Здание 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.

Примеры работ: