Question

Решить в паскале.
Дан массив А(9). Сформулировать новый массив В, который получается из А путем записи после каждого отрицательного элемента числа 0. Массивы А и В распечатать.

Answer 1

program Project2;
{$APPTYPE CONSOLE}
uses  SysUtils;
var a,b:array [1..9] of Integer; i:integer;
begin 
Randomize; 
for i:=1 to 9 do 
a[i]:=Random(10)-5;
  for i:=1 to 9 do 
 write(a[i]:3);
  writeln;
for i:=1 to 9 do 
 b[i]:=a[i];
for i:=1 to 9 do
 if b[i]<0 then
  b[i+1]:=0;
  for i:=1 to 9 do 
write(b[i]:3);
 Readln;
end.