Заполнить сведение о 10 студентах (ФИО,дата рождения,адрес,курс и группа),и вывести на экран фамилии только студентов 2-го курса. Написать в паскале

# Задание 5 Без использование ген списка

list = [-23, -15, -10, -4, 3, 7, 12, 35, 47, 88]

list2 = []

for i in list:

   if i < 0:

       list2.append(i)

print(list2)

# Задание 5 С использованием ген списка

list = []

list2 = []

for i in range(-50,50, 10):

   list.append(i)

   if i < 0:

       list2.append(i)

print(list2)

# Заданиче 6 без использование ген списка

a = [1, 2, 3, 5, 8, 13, 21, 34, 55]

b = []

k = int(input('Введите индекс k (от 0 до 9): '))

for i in a:

   if i != a[k]:

       b.append(i)

print(b)

# Заданиче 6 c использованием ген списка

a = []

b = []

k = int(input('Введите индекс k (от 0 до 9): '))

for i in range(10):

   a.append(i)

print(a)

for x in a:

   if x != a[k]:

       b.append(x)

print(b)

Объяснение:

№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.