вывести массив,определить и посчитать количество элементов,которые удовлетворят следующие условия:порядковый номер чётный, а сам элемент должен быть нечётным
Ответы
Ответ дал:
0
program zadacha;vara: array[1..1000] of integer;i,n,k: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000);write(a[i]:6);end;
k:=0;for i:=2 to n do beginif (a[i] mod 2<>0) and (i mod 2 = 0) then beginwriteln();writeln(a[i], ' N ',i);k:=k+1;end;end;writeln();writeln('kol-vo elementov =',k);end.
program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.
k:=0;for i:=2 to n do beginif (a[i] mod 2<>0) and (i mod 2 = 0) then beginwriteln();writeln(a[i], ' N ',i);k:=k+1;end;end;writeln();writeln('kol-vo elementov =',k);end.
program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.
Приложения:
![](https://st.uroker.com/files/728/728459ae006235e482315cf680b63fe5.png)
![](https://st.uroker.com/files/297/297508196e2fcbe1557a6c6c8b1ffea5.png)
Ответ дал:
0
ок
Ответ дал:
0
ты страницу обновляла? может, поможет
Ответ дал:
0
я выложил вопрос
Ответ дал:
0
уже выложила ответ
Ответ дал:
0
у меня в этой программе вывел n2 что это такое?
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад
9 лет назад