Question

дан масив из 12 целых чисел вывести исходный масив и получить новый элементы которого увеличены в 4 раза

Answer 1

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.