pascal решение в ручную

[kinwood]

#1K
Const  a:array[1..8]of integer=(-3, -4, 5, 3, 2, 1, 6, -5); 
            t:real=0; n=8;
Var  x:real;  i,b,k:integer;
begin
b:=a[a[3]]+a[a[5]];  inc(b,3);   
case b of
1: begin for i:=1 to n do t:=t+sqr(a[i]); t:=sqrt(t)  end;

3: begin for i:=1 to n do t:=t+exp(3*ln(a[i])); t:=sqrt(t)  end;

5: begin for k:=n downto 1 do if (k=n) or (t>a[k]) then t:=a[k]  end;

7: begin for k:=n downto 1 do if 0>a[k] then t:=a[k]  end;
end;
writeln(Trunc(t))
end.

Ответ {#1K 11} {b=1}

Как это программу сделать в ручную обьесните пожалуйста.

s:=5;
 for i:=1 to 4 do
    for j:=1 to 4 do if (j+i) mod 2<>0  then b[i,j]:=2*j*i   else b[i,j]:=i*j;
     for j:=1 to 4 do s:=s+b[5-j,j];

Ответ 45

[Stilet]

Как это программу сделать в ручную

Я думаю что речь идет о том чтоб ты взял калькулятор сел и на бумаге провел те расчеты, что делает программа.

[kinwood]

Я не понимаю как считать вот и прошу обьеснить пожалуйста.

[Stilet]

не понимаю как считать

Поясняю:

b:=a[a[3]]+a[a[5]]; inc(b,3);

Исходя из a:array[1..8]of integer=(-3, -4, 5, 3, 2, 1, 6, -5);
получаем b равное 2-4 т.е. -2.
Потом inc(b,3) увеличит -2 до 1
Далее сработает case 1:
Потом вычисляешь for i:=1 to n do t:=t+sqr(a[i])
получаешь сумму корней массива
А далее: t:=sqrt(t) - геометрическая прогрессия массива.
Вот посчитай на бумажке ее и получи ответ.
Яснышко?