Дано не менее трех различных натуральных чисел, за которыми следует 0. определить 3 наибольших числа среди них.

program msdos_2; uses crt; var  a: array[1..3] of integer; //массив трёх максимальных элементов  r,max,i,j: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   r: =1;   writeln('введите ненулевое число');   writeln('(или введите 0 для конца последовательности) '); {вводим 3 первых элемента}

for i: =1 to 3 do      begin          write('ввод: ');             readln (r);           a[i]: =r;       end; {сортируем массив из 3-х первых элементов}  for i: =1 to 2 do       begin          max: =a[i];           for j: =i+1 to 3 do              if a[j]> max then                    max: =a[j];           a[j]: =a[i];           a[i]: =max;       end; {продолжаем ввод и сравниваем текущее число с массивом из 3-х первых}  while r< > 0 do      begin          write('ввод: ');             readln (r);           if r> a[1] then                  begin                      a[3]: =a[2];                       a[2]: =a[1];                       a[1]: =r;                   end              else                  if r> a[2] then                          begin                              a[3]: =a[2];                               a[2]: =r;                           end                      else                          if r> a[3] then                              a[3]: =r;       end; {выводим 3 максимальных элемента}

  writeln();   writeln('три наибольших элемента массива: ');   for i: =1 to 3 do      writeln(i,'-й: ',a[i]); end.

вся информация в компьютере, как известно, кодируется и передаётся с двоичных значений 0 и 1. любое устройство компьютера, производящие обработку или хранение информации, получает на входе один или несколько сигналов, представляющих собою электрические импульсы ("1" - есть сигнал, "0" - нет сигнала), а на выходе выдаёт один результирующий сигнал.существует три базовых логических элемента: "и", "или", "не". комбинируя эти три вида элементов, можно собрать логическое устройство какой угодно сложности.логический элемент "и" получает на входе 2 сигнала. на выходе выдаётся один сигнал, являющийся результатом операции логического умножения входных сигналов. проще говоря, если хотя бы один из входных сигналов равен "0", то и на выходе будет "0".логический элемент "или" тоже получает на входе 2 сигнала. на выходе выдаётся один сигнал, являющийся результатом операции логического сложения входных сигналов. если хотя бы один из входных сигналов равен "1", то и на выходе будет "1".логический элемент "не" получает на входе 1 сигнал. на выходе выдаётся один сигнал, являющийся результатом операции инверсии входного сигнала (если на входе "1", то на выходе "0", и наоборот).