Дан одномерный массив. найти сумму отрицательных элементов, стоящих на четных местах. хелп, , ))

108

320

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

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

Marishka301

Информатика

4,7(90 оценок)

Program qq; var a: array of [1..длина массива] of real; i: integer; summ: real; begin summ: =0; for i: =1 to длина массива do read(a[i]); for i: =1 to длина массива do if (i mod 2 = 0) and (a[i]< 0) then summ: =summ+a[i]; writeln(summ); end.