цикл for(паскаль)

[mxra1n]

const x:array[1..10]of integer=(2,8,1,7,8,1,7,4,-3,5);
var s,k,t,d:integer;
begin
s:=0;
for k:=1 to 10 do
if (k=1)or(s<x[k]) then begin s:=x[k];t:=k;
end;
d:=x[t];x[t]:=x[t-1];x[t-1]:=d;
writeln(x[t+1]+x[t-1]);
end.

объясните как решать пожалуйста

[VIK_aka_TOR]

эм... а что объяснять если нету ни условия... да и код какой то написан...
p.s. не телепат...

[mxra1n]

Сообщение от VIK_aka_TOR

эм... а что объяснять если нету ни условия... да и код какой то написан...
p.s. не телепат...

мм,ну задание такое препод скинул..
там все такие однотипные задания..

[Stilet]

объясните как решать

Так оно уже решено вроде...
Программу то запусти - выдаст результ верный?

[VIK_aka_TOR]

ну... для начала что бы все работало... нужно вынести массив из под константы...

var s,k,t,d:integer;
x:array[1..10]of integer :=(2,8,1,7,8,1,7,4,-3,5);

ну а собственно что оно делает :

находит максимум... а точнее индекс максимального элемента...
затем меняет местами максимум и предыдущий перед максимумом элемент... затем складывает соседние элементы где раньше стоял максимум...
тут 8 и 7 поменяются местами... и затем 8 + 1 будет...