Объяснение:
рлллолшчллы пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук тра3 я не знаю почему у тебя так же когда ты один ты постоянно пишешь звонишь хотя бы тоже поела и все больше ничего я не знаю почему у тебя р от меня надо было с 33333месяцев Тогда и 44беседовать
Pascal
var a,b: array of integer;
i,k,s1,s2: integer;
begin
s1:=0;
s2:=1;
write('Введите количество элементов массива');
readln(k);
setlength(a,k);
setlength(b,k);
for i:=0 to k-1 do
begin
write('Ввод данных для a[',i,']=');
readln(a[i]);
if a[i]>0 then s1:=s1+a[i] else s2:=s2*a[i];
end;
writeln('Данные массива A:');
for i:=0 to k-1 do writeln('a[',i,'] = ',a[i]);
writeln;
writeln('Данные массива B:');
for i:=0 to k-1 do
begin
if a[i]>0 then b[i]:=s2 else b[i]:=s1;
writeln('b[',i,'] = ',b[i]);
end;
end.