найти сумму трех последовательно стоящих элементов массива

[d00ker]

Нужно найти сумму трех последовательно стоящих элементов массива, состоящего из 30 элементов, причем изначально заполняем массив случайным образом.

[alex_fcsm]

uses crt;
var a:array[1..30] of integer;
    i,j,sum:integer;
    
begin
clrscr;
for i:=1 to 30 do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
 writeln;
 a[i]:=random(30);
i:=1;j:=1;
while i<=30 do
 begin
  sum:=0;
  for j:=i to i+2 do
  sum:=sum+a[j];
  i:=i+3;
  writeln(sum);
 end;
end.

[d00ker]

это интересное решениено при выводе результата должен быть выведен массив первоначальный и сама сумма эти трех последовательных элементов, которая максимальна в этом массиве!

[alex_fcsm]

uses crt;
var a:array[1..30] of integer;
    i,j,sum,max,l:integer;

begin
clrscr;
for i:=1 to 30 do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
 writeln;
 a[i]:=random(30);
i:=1;j:=1;l:=1;max:=0;
while i<=30 do
 begin
  sum:=0;
  for j:=i to i+2 do
  sum:=sum+a[j];
  if max<sum then begin
                   max:=sum;
                   l:=i;
                  end;
  i:=i+3;
  end;
 writeln;
 for i:=l to l+2 do
  write(a[i]:3);
  write('--',sum:4);
 
end.

[d00ker]

Это не тосмотри, должно получится на выходе так:
93 20 77 48 5 47 62 31 57 49 23 84 70 85 45 21 87 56 11 36 24 85 35 53 18 4 1 96 33 39
сумма: ... 84 70 85 ... = 239

[alex_fcsm]

Косметический вид можете сами подправить

uses crt;
var a:array[1..30] of integer;
    i,j,sum,max,l:integer;

begin
clrscr;
for i:=1 to 30 do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
 writeln;
 a[i]:=random(30);
i:=1;j:=1;l:=1;max:=0;
while i<=30 do
 begin
  sum:=0;
  for j:=i to i+2 do
  sum:=sum+a[j];
  if max<sum then begin
                   max:=sum;
                   l:=i;
                  end;
  i:=i+3;
  end;
 writeln;
 if  l>1 then write('...');
 for i:=l to l+2 do
  write(a[i]:3);
 if i<30 then write('...');
  write('   Сумма:',max:4);
end.

[d00ker]

Да!!!Именно так!!! Но может кто-нибудь предложит решение интереснее????