напишите программу, Дан...

Тема в разделе "Информатика", создана пользователем raolga2007, 3 фев 2010.

  1. raolga2007

    raolga2007 New Member

    напишите программу, Дан целый одномерный массив А, неотрицательных чисел, с индексами от 1 до 6. Заполнить данный массив с клавиатуры, найти ивывести наименьшую нечетную сумму двух соседних элементов массива.
     
  2. GalerON

    GalerON New Member

    Program lol;
    Const n=6;
    var a:array [1..n] of integer;
    i,s:integer;
    begin
     begin
      for i:=1 to n do
      readln (a);
     end;
    s:=a[1]+a[2];
    for i:=2 to n do
     begin
      if s>(a+a[i-1]) then
      s:=a+a[i-1];
     end;
    writeln (s);
    end.




     

Поделиться этой страницей

Наша группа