Задача: в массиве x[1..n],содержащем n элементов, вычислить y=x1-x2+x3-x4+... и т.д.
FreeMan
16.12.2004 0:10
Код
const n =10; var i:byte; a:array[1..n] of integer; y:integer; begin randomize; for i:=1 to n do a[i]:=random(1000); y:=0; for i:=1 to n do if i mod 2=0 then dec(y,a[i]) else inc(y,a[i]); end.
Вроде так
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.