Поделиться
Л2-00629.docx
Пример. Дана последовательность целых чисел, состоящая из 25 элементов. Вычислить сумму элементов последовательности.
Program primer1; Var i, a, s : integer;
Begin
x := 0;
For i := 1 to 25 do begin Read (a);
x := x + a; end;
Write ('Сумма элементов равна ', x); End.
Решим задание из примера используя конструкцию оператора
For-Downto, в которой шаг наращивания будет равен -1.
Program primer2; Var i, a, s : integer;
Begin
x := 0;
For i := 25 downto 1 do begin Read (a);
x := x + a; end;
Write ('Сумма элементов равна ', x); End.
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
