Первое число в каждой паре чисел заменить суммой, второе – произведением

Анатолийсмауг

Задан массив D(12). Первое число в каждой паре чисел заменить суммой, второе – произведением этим чисел, если ни одно из чисел этой пары не равно нулю. В противном случае числа пары переписать в мас сив B.
1 ответ

Анатолийсмауг

const n=12;
var d,b:array[1..n] of integer;
    i,m,s,p:integer;
begin
randomize;
writeln('Массив D');
for i:=1 to n do
 begin
  d[i]:=random(10);
  write(d[i]:4);
 end;
writeln;
m:=0;
i:=1;
while i<n do
 begin
  if d[i]*d[i+1]<>0 then
   begin
    s:=d[i]+d[i+1];
    p:=d[i]*d[i+1];
    d[i]:=s;
    d[i+1]:=p;
   end
  else
   begin
    m:=m+2;
    b[m-1]:=d[i];
    b[m]:=d[i+1];
   end;
  i:=i+2;
 end;
writeln('Измененный массив D');
for i:=1 to n do
write(d[i]:4);
writeln;
if m=0 then write('Массив В пустой')
else
 begin
  writeln('Массив В');
  for i:=1 to m do
  write(b[i]:4);
 end;
end.