Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально
A[3] := 2;
A[4] := 3;
B := A[3];
A[3] := A[4];
A[4] := B?
Варианты ответа:
1. A [3] = 3; A [4] = 1
2. A [3] = 3; A [4] = 3
3. A [3] = 3; A [4] = 0;
4. A [3] = 3; A [4] = 2

Const n=10; var a: array[1..n]of integer; i,max1,max2,im1,im2: integer;         begin    for i: =1 to n do                      begin                          a[i]: =random(21)-10;                             write(a[i]: 4);                       end; max1: =a[1]; im1: =1;             for i: =1 to n do                        if a[i]> max1 then                                  begin                                              max1: =a[i];                                             im1: =i;                                 end;             for i: =1 to n do                    if (a[i]< =max1)and(i< > im1)and(a[i]> max2)then                                  begin                                          max2: =a[i];                                       im2: =i;                                 end; writeln; writeln('i: ',im1,'  max1:   ', max1,'   i: ',im2,'   max2:   ',max2); end.

алг  сумма  цифр

нач

вывод    sumdigits(12345)

кон

алг цел      sumdigits(цел    n0)

нач

цел    sum=0,      n

n: =n0

нц  пока    n< > 0

sum: =sum+mod(n,10)

n: =div(n,10)

кц

знач: =sum

кон

на паскале:   var a,x: integer; i,s: integer; begin  writeln('введите целое число: '); readln( a ); x: =a;   s: =0; while ( x< > 0 ) do    begin    s : = s + (x mod 10);     x : = x div 10; end; writeln( 'сумма цифр числа ',a,' = ', s ); end.