Введите с клавиатуры одномерный массив а(n), элементами - вопрос №4785274 от LeraReka 06.11.2021 04:26

Question

Информатика: Введите с клавиатуры одномерный массив а(n), элементами которого являются положительные и отрицательные целые числа. подсчитайте произведение положительных элементов этого массива и количество отрицательных. сформируйте новый массив в(n) из элементов массива а(n), в котором все элементы которые стоят на четных местах замените на произведение положительных, а на нечетных – на количество отрицательных

LeraReka · Answer

Var a,b:array [1..1000] of integer;i,s,c,n:integer;beginwriteln( Введите кол-во чисел );readln(n);s:=1;c:=0;for i:=1 to n do beginwriteln( 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 beginif(i mod 2 0) then a[i]:=celse a[i]:=s;end;end....