Решаем задачи Абрамян на Паскале. Array41

Array41. Дан массив размера $$N$$. Найти два соседних элемента, сумма которых максимальна, и вывести эти элементы в порядке возрастания их индексов.

Решение:

program Array41;
var
  a:array[1..10] of integer;
  N,i,SumMax,k:Integer;

begin
  a[1]:=0;
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  SumMax:=a[1]+a[2];
  k:=2;

  for i:=2 to N do
   if (a[i-1]+a[i])>SumMax then
    begin
     k:=i;
     SumMax:=a[i-1]+a[i];
    end;
  Writeln(a[k-1],' ',a[k]);
end.

program Array41;

var

a:array[1..10] of integer;

N,i,SumMax,k:Integer;

begin

a[1]:=0;

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

SumMax:=a[1]+a[2];

k:=2;

for i:=2 to N do

if (a[i-1]+a[i])>SumMax then

begin

k:=i;

SumMax:=a[i-1]+a[i];

end;

Writeln(a[k-1],' ',a[k]);

end.

Задачи из раздела Array можно посмотреть здесь.

Комментарии 2

olegst1975

18.03.2016 в 14:07

Может в строку 21 добавить
SumMax:=a[i-1]+a[i]);

Ответить
Anton

18.03.2016 в 14:39

Согласен. Поправил.
Было:

if (a[i-1]+a[i])>SumMax then k:=i;

1

if (a[i-1]+a[i])>SumMax then k:=i;

Стало:

if (a[i-1]+a[i])>SumMax then begin k:=i; SumMax:=a[i-1]+a[i]; end;

1
2
3
4
5

if (a[i-1]+a[i])>SumMax then
    begin
     k:=i;
     SumMax:=a[i-1]+a[i];
    end;

Ответить

Решаем задачи Абрамян на Паскале. Array41

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ