Объясните, ! паскаль. решение есть, просто не пойму одну деталь!

звучит так:

дан массив, содержащий 70 неотрицательных целых чисел. опишите на одном из языков

программирования алгоритм, позволяющий найти и вывести наименьшую нечётную сумму двух

соседних элементов массива. гарантируется, что в массиве есть соседние элементы с нечётной суммой.

исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не

описанные ниже, но разрешается не использовать часть из них.

непонятно: почему мы пишем " (x=0) or " (т.е. почему именно нуля, почему именно такое действие)

const

n = 70;

var

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

i,j,x,y: integer;

begin

for i : = 1 to n do

readln(a[i]);

for i : = 1 to (n-1) do

if ((a[i] + a[i+1]) mod 2 = 1) then

if (x = 0)or(x > a[i] + a[i+1]) then

x : = a[i] + a[i+1];

write(x);

end.

Unit Main;
interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;
type  TForm1 = class(TForm)    Memo1: TMemo;    Edit1: TEdit;    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;
var  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);var  i, j, n: integer;  min, max, var_bl: real;  a: array of array of real;beginMemo1.Clear;if TryStrToInt(Edit1.Text,n) thenbegin  n:=StrToInt(Edit1.Text);  if n<1 then    begin      Application.MessageBox('Ошибка!','',0);      Exit;    end;    SetLength(a,n);      for i:= 0 to n-1 do          SetLength(a[i],n);              Randomize;      for i:= 0 to n-1 do    for j:=0 to n-1 do      a[i,j]:=Random(100)-30;    min:= a[0,0];    max:= a[0,0];    for i:= 0 to n-1 do      begin        for j:=0 to n-1 do          begin            //Memo1.Text:=Memo1.Text+FloatToStrF(a[i,j],ffFixed,5,3)+' ';//Форматированный вывод            Memo1.Text:=Memo1.Text+FloatToStr(a[i,j])+' ';  //обычный вывод          end;        Memo1.Lines.Add('');      end;
  for i:= 0 to n-1 do    for j:=0 to n-1 do      begin        if(a[i,j]<min) then          min:=a[i,j];        if(a[i,j]>max) then          max:=a[i,j];      end;          Memo1.Lines.Add('Min='+FloatToStr(min)+', Max='+FloatToStr(max));    for i:= 0 to n-1 do    for j:=0 to n-1 do      begin        if(a[i,j]=min) then        begin          a[i,j]:= max;          Continue;        end;        if(a[i,j]=max) then          a[i,j]:=min;      end;      Memo1.Lines.Add('');    Memo1.Lines.Add('');      Memo1.Lines.Add('Были поменяны наименьший и наибольший элемент массива');      Memo1.Lines.Add('');    for i:= 0 to n-1 do      begin        for j:=0 to n-1 do          begin            //Memo1.Text:=Memo1.Text+FloatToStrF(a[i,j],ffFixed,5,3)+' ';//Форматированный вывод            Memo1.Text:=Memo1.Text+FloatToStr(a[i,j])+' ';  //обычный вывод          end;        Memo1.Lines.Add('');      end;    Memo1.Lines.Add('');    Memo1.Lines.Add('');    Memo1.Lines.Add('');    Memo1.Lines.Add('');end  else    Application.MessageBox('Ошибка!','',0);end;
end.

Электро́нная по́чта (англ. email, e-mail, от англ. electronic mail) — технология и служба по пересылке и получению электронных сообщений (называемых «письма», «электронные письма» или «сообщения») между пользователями компьютерной сети (в том числе — Интернета)[1].

Электронная почта по составу элементов и принципу работы практически повторяет систему обычной (бумажной) почты, заимствуя как термины (почта, письмо, конверт, вложение, ящик, доставка и другие), так и характерные особенности — простоту использования, задержки передачи сообщений, достаточную надёжность и в то же время отсутствие гарантии доставки.

Достоинствами электронной почты являются: легко воспринимаемые и запоминаемые человеком адреса видаимя_пользователя@имя_домена (например, [email protected]); возможность передачи как простого текста, так и форматированного, а также произвольных файлов (текстовые документы, медиафайлы, программы, архивы, и т. д.[1]); независимость серверов (в общем случае они обращаются друг к другу непосредственно); достаточно высокая надёжность доставки сообщения; простота использования человеком и программами, высокая скорость передачи сообщений.

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

В настоящее время любой начинающий пользователь может завести свой бесплатный электронный почтовый ящик, достаточно зарегистрироваться на одном из интернет-порталов.