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

1

Ответы и объяснения

Лучший Ответ!
2014-02-10T15:13:17+00:00
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.