Сгониривровать массив с размером от 1 до 100 найти сумму каждого 2 элемента

135

173

Посмотреть ответы 2

Ответы на вопрос:

122599baikal

Информатика

4,6(72 оценок)

Var i,s: integer; a: array[1..100] of integer; begin for i: =1 to 100 do a[i]: =i; s: =0; i: =2; while i< =100 do begin s: =s+a[i]; i: =i+2 end; writeln('сумма четных элементов равна ',s) end. пример сумма четных элементов равна 2550 а вот так эту решают "во взрослом мире" (если не помнят формулу суммы арифметической прогрессии): // pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin range(2,100,2).sum.println end.