Впрограмме используется одномерный целочисленный массив а с индексами от 0 до 10. ниже представлен фрагмент программы в котором значения элементов сначала , а затем меняются. нц для i от 0 до 10 а [ i ] : = i кц нц для i от 0 до 4 с : = a[ i ] a[ i ] : = a [10 - i ] a [10 - i ] : =c кц чему будут равны элементы массива после выполнения фрагмента программы? 1) 10 9 8 7 6 5 4 3 2 1 0 2) 0 1 2 3 4 5 6 7 8 9 10 3) 10 9 8 7 6 5 6 7 8 9 10 4) 0 1 2 3 4 5 4 3 2 1 0

a[10]=0

a[9]=1

a[8]=2 

a[7]=3

a[6]=4

a[5]=5

a[4]=6

a[3]=7

a[2]=8

a[1]=9

a[0]=10

Var   a,b: integer; begin   a: =50; b: =-20; { начальное присванивание }   writeln('исходные значения: a=',a,', b=',b);   a: =a+b; b: =a-b; a: =a-b;   writeln('обмен после "арифметического" способа: a=',a,', b=',b);   a: =50; b: =-20; { начальное присванивание }   a: =a xor b; b: =a xor b; a: =a xor b;   writeln('обмен после "логического" способа: a=',a,', b=',b) end. результат выполнения программы: исходные значения: a=50, b=-20 обмен после "арифметического" способа: a=-20, b=50 обмен после "логического" способа: a=-20, b=50

Program schet; var a: integer; label h; begin h: begin writeln('введите количество палочек: '); readln(a); if (a< =0) then goto h  else a: =a+3; writeln('у тани стало ', a, ' палочек'); end; readln; end.program schet; var a,b: integer; begina: =2015; writeln('сколько лет проводится олимпиада? '); readln(b); a: =a-b; writeln('первая олимпиада была проведена в ',a,' году.'); readln; end.program schet; var a,b,c,i: integer; beginwriteln('сколько семечек посадил пятачок? '); readln(a); writeln('сколько семечек не выросло? '); readln(b); a: =a-b; writeln('сколько не плодоносных яблонь? '); readln(c); a: =a-c; writeln('на скольки яблонях вкусные яблоки? '); readln(i); a: =a-i; if (a< 0) then writeln('выросло 0 яблонь с невкусными яблоками.')else writeln('выросло ',a,' яблонь с невкусными яблоками.'); readln; end.program schet; var a: real; beginwriteln('введите число, которое нужно округлить: '); readln(a); a: =round(a); writeln('ответ после округления: ',a); readln; end.