Сумма отрицательных нечетных элементов массива

@Device · Регистрация: 03.03.2021

Author24 — интернет-сервис помощи студентам

Pascal

Program massivi;
const n=20;
var a: array [1..n] of integer;
    i,j,k,s: integer;
begin
     Randomize;
     k:=0;
     s:=0;
     writeln('Массив A ');
     for i:=1 to n do begin
         A[i]:=random(50)-25;
         write(A[i]:4);
         if A[i]>0 then inc(k);
         if (A[i]<0)and(i mod 2 <> 0) then s:=s+A[i];
         end;
     writeln;writeln('Кол-во положительных= ',k);
     writeln('Сумма отрицательных не четных элементов= ',s);
     readln;
end.

Не верно считает сумму отрицательных не четных

@Puporev · 01.10.2021, 11:54

Сообщение от Device

сумму отрицательных не четных

Pascal

1	if (A[i]<0)and odd(A[i])

	01.10.2021, 11:54

Сумма отрицательных нечетных элементов массива

Решение