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

Question

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

BarsicX · Answer

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.Примеры работ:...