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

Minmax24. Дано целое число $$N (> 1)$$ и набор из $$N$$ чисел. Найти максимальную сумму двух соседних чисел из данного набора.

Решение:

program Minmax24;

var
  R1,R2,MaxSum:Real;
  N,i:Integer;

begin
  MaxSum:=0;
  R1:=0;
  R2:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     R2:=R1;
     Write(i,' число:');
     Readln(R1);


     if i=2 then MaxSum:=R2+R1;
     if R1+R2>MaxSum then MaxSum:=R2+R1;

    end;
   writeln(MaxSum);
end.

program Minmax24;

var

R1,R2,MaxSum:Real;

N,i:Integer;

begin

MaxSum:=0;

R1:=0;

R2:=0;

Write('N:');

Readln(N);

for i:=1 to N do

begin

R2:=R1;

Write(i,' число:');

Readln(R1);

if i=2 then MaxSum:=R2+R1;

if R1+R2>MaxSum then MaxSum:=R2+R1;

end;

writeln(MaxSum);

end.

Решение Newton:

program MinMax24;

const
   RandLimit = 10;

var
   Counter                  : byte;
   Foo, Number, Sum, SumMax : integer;

begin
   write('Enter the number of elements: ');
   readln(Number);
   Foo    := 0;
   Sum    := 0;
   SumMax := 0;
   for Counter := 1 to Number do
      begin
         Foo := random(RandLimit);
         Sum := Sum + Foo;
         if Sum > SumMax then
            SumMax := Sum;
         writeln(Counter :2, '.', Foo :5, Sum :5, SumMax :5);
         Sum := Foo;
      end;
   writeln;
   writeln('The max sum of two adjacent elements is: ', SumMax);
end.

program MinMax24;

const

RandLimit = 10;

var

Counter : byte;

Foo, Number, Sum, SumMax : integer;

begin

write('Enter the number of elements: ');

readln(Number);

Foo := 0;

Sum := 0;

SumMax := 0;

for Counter := 1 to Number do

begin

Foo := random(RandLimit);

Sum := Sum + Foo;

if Sum > SumMax then

SumMax := Sum;

writeln(Counter :2, '.', Foo :5, Sum :5, SumMax :5);

Sum := Foo;

end;

writeln;

writeln('The max sum of two adjacent elements is: ', SumMax);

end.

Другие задачи из раздела Minmax можно посмотреть здесь.

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

Возможный вариант решения:

program MinMax24;

const
   RandLimit = 10;

var
   Counter                  : byte;
   Foo, Number, Sum, SumMax : integer;

begin
   write('Enter the number of elements: ');
   readln(Number);
   Foo    := 0;
   Sum    := 0;
   SumMax := 0;
   for Counter := 1 to Number do
      begin
         Foo := random(RandLimit);
         Sum := Sum + Foo;
         if Sum > SumMax then
            SumMax := Sum;
         writeln(Counter :2, '.', Foo :5, Sum :5, SumMax :5);
         Sum := Foo;
      end;
   writeln;
   writeln('The max sum of two adjacent elements is: ', SumMax);
end.

program MinMax24;

const

RandLimit = 10;

var

Counter : byte;

Foo, Number, Sum, SumMax : integer;

begin

write('Enter the number of elements: ');

readln(Number);

Foo := 0;

Sum := 0;

SumMax := 0;

for Counter := 1 to Number do

begin

Foo := random(RandLimit);

Sum := Sum + Foo;

if Sum > SumMax then

SumMax := Sum;

writeln(Counter :2, '.', Foo :5, Sum :5, SumMax :5);

Sum := Foo;

end;

writeln;

writeln('The max sum of two adjacent elements is: ', SumMax);

end.

Ответить

Anton

16.11.2016 в 08:13

Добавил в шапку.

Ответить

Program m24;

Var
 n,i,k: integer;
 s,r,a,max: real;
 
Begin
s:=0;
 Write('N=');
 readln(n);
 For i:=1 to n do
  Begin
   r:=s;
   Write('A',i,'=');
   Readln(a);
   If (i=1) then max:=a;
   s:=s+a;
   If (s>max) then max:=s;
   s:=s-r;
  End;
 Writeln(max);
End.

Program m24;

Var

n,i,k: integer;

s,r,a,max: real;

Begin

s:=0;

Write('N=');

readln(n);

For i:=1 to n do

Begin

r:=s;

Write('A',i,'=');

Readln(a);

If (i=1) then max:=a;

s:=s+a;

If (s>max) then max:=s;

s:=s-r;

End;

Writeln(max);

End.

Ответить

Kirk

18.04.2017 в 08:34

Блин, забыл стереть переменную k

Ответить

program Minmax24

var i,N:integer;
a,a1,S,Smax:real;
begin
 write('N:');
 read(N);
  for i:=1 to N do
begin
 writeln('Введите ',i,'-е число:');
 read(a);
 S:=a1+a;
 a1:=a;
 if  S>Smax then Smax:=S;
end;
 write('Максимальная сумма двух соседних чисел: ',Smax);
end.

program Minmax24

var i,N:integer;

a,a1,S,Smax:real;

begin

write('N:');

read(N);

for i:=1 to N do

begin

writeln('Введите ',i,'-е число:');

read(a);

S:=a1+a;

a1:=a;

if S>Smax then Smax:=S;

end;

write('Максимальная сумма двух соседних чисел: ',Smax);

end.

Ответить

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

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

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

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