Дан одномерный массив. Найти сумму отрицательных элементов, стоящих на четных местах. Хелп, срочно, спасибо))
Дан одномерный массив. Найти сумму отрицательных элементов, стоящих на четных местах. Хелп, срочно, спасибо))
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы