Program massiv; uses crt; const a:array[1..12] of byte=(1,3,2,3,0,9,4,5,6,7,8,2); var i:byte; b:array[1..12] of byte; begin clrscr; write('Isxodnui massiv: '); for i:=1 to 12 do begin write(a[i]:4); b[i]:=a[i]; end; writeln; Write('Novui massiv: '); for i:=1 to 12 do begin b[i]:= b[i]*4; write(b[i]:4); end; readln; end.
uses crt;
const a:array[1..12] of byte=(1,3,2,3,0,9,4,5,6,7,8,2);
var i:byte;
b:array[1..12] of byte;
begin
clrscr;
write('Isxodnui massiv: ');
for i:=1 to 12 do
begin
write(a[i]:4);
b[i]:=a[i];
end;
writeln;
Write('Novui massiv: ');
for i:=1 to 12 do
begin
b[i]:= b[i]*4;
write(b[i]:4);
end;
readln;
end.