var a:array [1..8] of integer;
i:integer;
begin
for i:=1 to 8 do a[i]:=random(17)-8;
writeln('Исходный массив: ',a);
for i:=1 to 8 do a[i]:=a[i]*10;
writeln('Преобразованный массив: ',a)
end.
var a:array [1..8] of integer;
i:integer;
begin
for i:=1 to 8 do a[i]:=random(17)-8;
writeln('Исходный массив: ',a);
for i:=1 to 8 do a[i]:=a[i]*10;
writeln('Преобразованный массив: ',a)
end.