Question

В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 25, 12, 2, 14, 7, 8, 32, 11, 1, 9 соответственно, т.е. A[0] =25, A[1] = 12 и т.д. Определите значение переменной s после выполнения следующей программы:

s := 0;

n := 5;

for i:=0 to 9 do

if A[i] <= A[n] then begin

s := s + A[i];

t := A[i];

A[i] := A[n];

A[n] := t;

n := i mod 4;

end;

write(s);

Answer 1

Ответ:

23

Объяснение:

program temp1;

const

a:array[0..9]of integer=(25, 12, 2, 14, 7, 8, 32, 11, 1, 9);

var

i,n,s,t:integer;

begin

s := 0;

n := 5;

for i:=0 to 9 do

if A[i] <= A[n] then begin

s := s + A[i];

t := A[i];

A[i] := A[n];

A[n] := t;

n := i mod 4;

end;

write(s);

end.