ANTICHAT — форум по информационной безопасности, OSINT и технологиям

echo Hi, Mr. File, can I speak with you? >> File

program Project1;

const
m:array[1..10] of integer=(3,5,8,1,9,4,5,2,1,2);
var
i:integer;
a,b:integer;
found:integer;
fsum:integer;
begin
fsum:=0;
found:=0;
For i:=1 to 10 do begin
 a:=m[i];
 b:=m[i+1];
 If a=b-1
 Then begin
        if fsum=0
        then begin fsum:=a+b;
                   found:=i;
                   end
        else
            if a+b<fsum
            then begin
            found:=i;
            fsum:=a+b;
            end;
  end;
end;
Writeln('номер первого из двух последовательных элементов в целочисленном массиве из 10 элементов, сумма которых минимальна:',found);
Writeln('сумма последовательных минимальных элементов:',fsum);
readln;
end.

For i:=1 to 10 do
 begin
  a:=m[i];
  b:=m[i+1]; <- на 10 шаге ты провериш 11-й элемент массива, хотя максимальный - 10

program ZZZ1;
uses crt;
const L=10;
var m:array[1..L]of integer;
i,a,b,found,fsum:integer;
begin
clrscr;
randomize;
write(' Massiv:');
for i:=1 to L do begin
m[i]:=random(7);
write(' ',m[i]);
end;
writeln;
fsum:=0;
found:=0;
for i:=1 to L-1 do begin
a:=m[i];
b:=m[i+1];
if a=b-1 then begin
if fsum=0 then begin
fsum:=a+b;
found:=i;
end else
if a+b<fsum
then begin
found:=i;
fsum:=a+b;
end;
end;
end;
writeln(' Nomer pervogo iz dvuh posl. elementov s minim. summoj = ',found);
writeln(' Minim. summa dvuh posl. elementov = ',fsum);
readkey;
end.

program ZZZ2;
uses crt;
const L=5; R=50;
var a:array[1..L]of integer;
b,i,h:integer;
begin
clrscr;
randomize;
write(' Massiv:');
for i:=1 to L do begin
{write('Vvedite  ',i,'-y element massiva : ');
readln(a[i]);}
a[i]:=random(R*2)-R;
write(' ',a[i]);
end;
writeln;
for h:=1 to L-1 do
for i:=1 to L-h do
if a[i]>a[i+1] then begin
b:=a[i+1];
a[i+1]:=a[i];
a[i]:=b;
end;
write(' Uporyad.:');
for i:=1 to L do write(' ',a[i]);
writeln;
readkey;
end.