Const n=10; var x:array[1..n] of integer; i,s:integer; found:boolean; begin { инициализация массива } Randomize; Writeln('Элементы массива'); for i:=1 to n do begin x[i]:=Random(50); Write(x[i]:3); end; Writeln; { задание 1 } s:=0; i:=1; while i<=n do begin s:=s+x[i]; i:=i+2 end; Writeln('Cумма элементов на нечетных местах равна ',s); { задание 2 } for i:=1 to n-1 do begin found:=(x[i] mod 2 = 0) and (x[i+1] mod 2 = 0); if found then break end; if found then Writeln ('Пара соседних четных элементов: ',x[i],', ',x[i+1]) else Writeln('Нет пары соседних четных элементов') end.
Тестовое решение: Элементы массива 3 11 42 38 36 47 8 15 15 13 Cумма элементов на нечетных местах равна 104 Пара соседних четных элементов: 42, 38
использовать Чертежник
алг груша
нач
сместиться в точку ( 6 , 13 )
опустить перо
сместиться в точку ( 3 , 13 )
сместиться в точку ( 1 , 14 )
сместиться в точку ( 2 , 15 )
сместиться в точку ( 5 , 14 )
сместиться в точку ( 6 , 13 )
сместиться в точку ( 5 , 12 )
сместиться в точку ( 4 , 12 )
сместиться в точку ( 3 , 11 )
сместиться в точку ( 3 , 9 )
сместиться в точку ( 1 , 5 )
сместиться в точку ( 1 , 4 )
сместиться в точку ( 2 , 2 )
сместиться в точку ( 3 , 1 )
сместиться в точку ( 6 , 1 )
сместиться в точку ( 7 , 2 )
сместиться в точку ( 8 , 4 )
сместиться в точку ( 8 , 5 )
сместиться в точку ( 6 , 9 )
сместиться в точку ( 6 , 11 )
сместиться в точку ( 5 , 12 )
поднять перо
сместиться в точку ( 0 , 0 )
кон