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

Автор: Наталья

Наталья — Mon, 04 Feb 2019 11:04:21 +0000

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.

Автор: Kirk

Kirk — Tue, 18 Apr 2017 04:34:12 +0000

В ответ на Kirk. Блин, забыл стереть переменную k

Автор: Kirk

Kirk — Tue, 18 Apr 2017 04:33:09 +0000

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.

Автор: Anton

Anton — Wed, 16 Nov 2016 04:13:09 +0000

В ответ на Newton. Добавил в шапку.

Автор: Newton

Newton — Tue, 15 Nov 2016 19:10:18 +0000

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

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.