Помощь - Поиск - Пользователи - Календарь
Полная версия: Массив целых чисел
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Dexoid
Есть такая задача: заполнить массив целыми числами, а затем найти в нём все пары соседствующих взаимно простых чисел (оба числа должны быть простыми). Найти среди пар пару с наибольшей суммой.
Написал код, вроде работает, никак не соображу как вывести именно пару с максимальной суммой а не само значение этой суммы. Может кто подскажет? Вот код:

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.

andriano
1. "Взаимно простые" и "простые" - большая разница. Примерно как "милостивый государь" и "государь император".
2. Заведи еще две переменные (или массив на 2 элемента) и запоминай их одновременно с переменной max.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.