Pascal ABC. Составьте программу табулирования функции y=x^2*ctg(x) +arcsin^2(x^2) на отрезке[0, 1] и с шагом 0,1

1

lst = [int(input()) for _ in range(int(input()))]

print(*[i for i in lst if i % 2 == 1])

print(len([i for i in lst if i % 2 == 1]))

2

lst = [int(input()) for _ in range(int(input()))]

print(*[i for i in lst[::-1] if i % 2 == 0])

print(len([i for i in lst if i % 2 == 0]))

3

lst = [int(input()) for _ in range(int(input()))]

print(*[i for i in lst if i % 2 == 0])

print(*[j for j in lst[::-1] if j % 2 == 1])

4(вообще индексация начинается с 0, но написано 'порядковыми')

a = [int(input()) for _ in range(int(input()))]

k = int(input('Введите k: '))

print(*[a[i] for i in range(k - 1, len(a), k)])

5(тоже самое, вторым я считаю элемент, который ввели вторым по счету, а не второй элемент по индексу)

a = [int(input()) for _ in range(int(input()))]

print(*[i for i in a[1::2]])

Пиши, если нужно исправить 4 или 5

ответ:program qwe;

var

a:array[1..30] of integer; //объявляем массив а целых чисел из 30 элементов

i,k,j:integer; //объявляем i,k,j целого типа

begin

randomize; //подключаем генерирование случайных чисел

for i:=1 to 30 do //циклом от 1 до 30 включительно

begin

a:=random(50); //заполняем каждый элемент массива случайными числами

//от 0 до 50 (не включая 50)

write(a,' '); //выводим в строчку полученный элемент и

//добавляем после него пробел

end;

writeln; //переход на новую строку

for j:=1 to 3 do //циклом от 1 до 3 влючительно

//т. к. в июне 30 дней, то и декад - 3

begin

k:=0; //обнуляем k, что бы каждую декажу считать заново

for i:=(1+10*(j-1)) to 10+10*(j-1) do //циклом от начала каждог десятка

//например с 1, с 11 и с 21 по конец каждого десятка

//например по 10, по 20 и по 30

k:=k+a; //к тому что у нас было прибавляем очередной элемент

writeln(k,' осадков за ',j,' декаду'); //выводим результат

end;

readln; //для задержки экрана.

end.

код иногда некорректно отображается на "ответах"