Введите с клавиатуры одномерный массив А(N), элементами которого являются положительные и отрицательные целые числа. Подсчитайте произведение положительных элементов этого массива и количество отрицательных. Сформируйте новый м...
Введите с клавиатуры одномерный массив А(N), элементами которого являются
положительные и отрицательные целые числа. Подсчитайте произведение положительных
элементов этого массива и количество отрицательных. Сформируйте новый массив В(N) из
элементов массива А(N), в котором все элементы которые стоят на четных местах замените
на произведение положительных, а на нечетных – на количество отрицательных
Гость
Ответ(ы) на вопрос:
Гостьvar
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.
Не нашли ответ?
Похожие вопросы