Введите с клавиатуры одномерный массив а(n), элементами которого являются положительные и отрицательные целые числа. подсчитайте произведение положительных элементов этого массива и количество отрицательных. сформируйте новый массив в(n) из элементов массива а(n), в котором все элементы которые стоят на четных местах замените на произведение положительных, а на нечетных – на количество отрицательных
nimnogopozitiva
2
13.07.2019 11:50
1
Другие вопросы по теме Информатика
катя5062
16.04.2020 17:29
shootdm100
05.07.2019 21:10
hdhhxhd662
05.07.2019 21:10
polinamypp
31.03.2019 19:31
TheBrayn
31.03.2019 19:34
AkaNika
31.03.2019 19:35
CoOlbOY2003g
31.03.2019 19:35
oksukbaevak
31.03.2019 19:38
vlad0ss
31.03.2019 19:43
Популярные вопросы
- )назовите царя при котором произошло полное закрепление крестьян...
2 - Солнце сияло. однако капитан парусника заметил темное пятно на горизонте....
3 - Если около каждого дома посадить по 9 саженцев, то не хватит 100 саж.,...
2 - Длина детской комнаты лизы 4 м,ширина-3 м.вторая комната имеет ту же ширину,но...
1 - Язык. переведите, . aus diesen lehrjahren stammen sein brustbild, das er...
1 - Какие можно составить предложения про снег (5 предложений)...
2 - Так надо . запишите одну из пословиц по памяти...
3 - Как в называется особый вид комического: высмеивание, разоблачение отрицательных...
1 - Какие из утверждений верные? а)в антициклоне перемещение воздуха происходит...
1 - Составьте 2 предложения со словами: дрожжи,пениццил,грибница...
1
a,b:array [1..1000] of integer;
i,s,c,n:integer;
begin
writeln('Введите кол-во чисел');
readln(n);
s:=1;
c:=0;
for i:=1 to n do begin
writeln('a[',i,'] = ');
read(a[i]);
if (a[i]>0)then s:=s*a[i];
if(a[i]<0) then c:=c+1;
end;
for i:=1 to n do begin
if(i mod 2 <>0) then a[i]:=c
else a[i]:=s;
end;
end.