Ориентация листа бумаги — 1)книжная 2)нет верного ответа 3)альбомная 4)листовая

3) альбомная-ориентацыя листа бумаги

верно: 1(книжная) и 2(альбомная)

Var   i,j,n,k: integer;   a,b: array[1..20]of integer; begin writeln('введите n'); readln(n); for i: =1 to n do   begin   readln(a[i]);   b[i]: =a[i];   end; for i: =1 to n do   for j: =1 to n do     if b[i]> b[j] then       begin       k: =b[i];       b[i]: =b[j];       b[j]: =k       end; for i: =1 to n do   if a[i]=b[2] then k: =i; writeln('k=',k); end.

Const  n = 12; var  m : array [1..n] of integer;   i, kol, sum : integer; begin   randomize;   for i: = 1 to n do    m[i]: = random(100)-50;       sum: = 0; kol: = 0;   for i: = 1 to n do  begin    if m[i] = 0 then      inc(kol);     if m[i] < 1 then      sum: = sum + m[i];   end;   writeln('количество нулевых элементов: ',kol);   writeln('сумма элементов, меньших 1: ',sum); end.