Program summer;
.
var a, b: integer;
begin
a := 20;
b:= 3;
b:= a/2*b;
TE
a := 2*a + 3*b;
write (a);
end. Решите

n, counter, spisok, new_spisok = int(input()), 0, [], []

while counter != n:

spisok.append(int(input()))

counter += 1

c1, c2 = int(input()), int(input())

for i in spisok:

if c1 <= i <= c2:

new_spisok.append(i)

print(new_spisok, len(new_spisok))

Объяснение:

1) хз зачем там цикл while, но раз в условии написано, то сделал через него;

2) скорее всего работать нужно со списками, а не массивами, так как append - метод списка;

3) если нужно, могу объяснить каждую строку;

4) формат вывода массива не указан, поэтому вывод обычного массива с его длиной через запятую;

5) нижние слеши это пробелы типа)

Объяснение:

1)
program chik;
var a:array[1..100]of integer;
i,s:integer;
begin
for i:=1 to 11 do
begin
read(a[i]);
end;
s:=0;
for i:=1 to 11 do
begin
if(a[i] mod 5=0)then s:=s+a[i];
end;
write(s);
end.
 2)
program chik2;
var a:array[1..100]of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 11 do
begin
read(a[i]);
end;
s:=0;
for i:=1 to 11 do
begin
if(a[i] mod 2=1)then s:=s+1];
end;
write(s);
end.
3)
program chik3;
var a:array[1..1000]of integer;
i:integer;
begin
for i:=1 to 9 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
if(a[i] mod 2=0)then write(a[i],' ');
end;
end.