1. Выберите строки, в которых условные операторы на языке Pascal записаны без ошибок.
if x>=10 then y:=y mod x;
if x=y then z:=1; else z:=x*y;
If 0<x<10 then write (‘х - однозначное число’);
If (x>0) and (x<=100) then y:=sqrt(x);
If (x>0) or (10*x)<100 then y:= x*х*х;
if x>0 then y:=sqrt(x); write (‘y=’, y) else write (‘нет ответа’);
2. Выберите строки, в которых условные операторы на языке Pascal записаны без ошибок.
if 10 then k:= k+1;
if x>0 then y:= 100 div x; else y:= 0;
if x<>0 then y:=100/x;
if x<y then S:= x+y; P:=x*y else S:=0; P:=1;
if (x mod y=0) then else writeln(‘no’)
if x>0 or y>0 then k:= k+1 else k:= 0;

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) нижние слеши это пробелы типа)

Объяснение:

Это 3 разные программы, все проверил на pascal abc.net, удачи)
1)uses crt;
var a:array [1..10] of integer;
i,n,t:integer;
begin
clrscr;
n:=10;
for i:=1 to n do begin read(a[i]); end; 
t:=1;
for i:=n downto 1 do begin 
 if a[i] mod 2=1 then begin write(a[i],' '); t:=t*a[i]; end;
end;
writeln('Произведение нечетных элементов=',t);
readln;
end.
2) uses crt;
var a:array [1..20] of integer;
i,n,t:integer;
begin
randomize;
clrscr;
n:=20;
for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end;
t:=0;
for i:=1 to n do begin 
if i mod 2=1 then begin write(a[i],' '); t:=t+a[i];
 end;
end;
writeln('Сумма четных элементов=',t);
readln;
end.
3)uses crt;
var a:array [1..20] of integer;
i,n,t:integer;
begin
randomize;
clrscr;
n:=20;
for i:=1 to n do begin a[i]:=random(50)-random(50); write(a[i],' '); end;
 t:=0;
for i:=1 to n do begin 
if a[i]>0 then begin t:=t+1; end;
 end;
writeln('Кол-во положительных элементов=',t);
readln;
end.