В одномерном массиве А подсчитать число положительных элементов, имеющих четный индекс. Отрицательные элементы массива заменить нулями (в паскале)
Answers & Comments
papricaT
Var a: array [1..100] of real; n, i, kol: integer; begin readln(n); for i := 1 to n do read(a[i]); kol := 0; for i := 1 to n do begin if (a[i] > 0)and(i mod 2 = 0) then kol := kol + 1; if a[i] < 0 then a[i] :=0; end; writeln(kol); end.
Answers & Comments
n, i, kol: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
kol := 0;
for i := 1 to n do begin
if (a[i] > 0)and(i mod 2 = 0)
then kol := kol + 1;
if a[i] < 0
then a[i] :=0;
end;
writeln(kol);
end.