Написал код, вроде работает, никак не соображу как вывести именно пару с максимальной суммой а не само значение этой суммы. Может кто подскажет? Вот код:
type
mymas=array[1..5] of integer;
var m:mymas;
j:integer;
function dexik(a:integer):boolean;
var flag:boolean; i:integer;
begin
flag:=true;
for i:=2 to a-1 do
if (a mod i)=0 then flag:=false;
dexik:=flag;
end;
procedure gen(m:mymas);
var i,k,l,max,len:integer;
begin
max:=0;
len:=5;
for i:=1 to len-1 do if dexik(m[i]) and dexik(m[i+1]) then begin
max:=(m[i]+m[i+1]);
if (m[i]+m[i+1])>max then begin max:=(m[i]+m[i+1]); end;
writeln(m[i],' ',m[i+1]);
end;
{writeln('max= ',max); }
end;
begin
for j:=1 to 5 do readln(m[j]);
gen(m);
end.