1) const n=6; var a:array[1..n] of integer; i:integer; begin writeln('Введите ',n,' элементов массива:'); for i:=1 to n do read(a[i]); writeln('Измененный массив:'); for i:=1 to n do begin a[i]:=-a[i]; write(a[i],' '); end; writeln; end.
2) const n=6; var a:array[1..n] of real; i:integer; begin writeln('Введите ',n,' элементов массива:'); for i:=1 to n do read(a[i]); for i:=1 to n div 2 do a[i]:=2*a[i]; for i:=n div 2+1 to n do a[i]:=a[i]/2; writeln('Измененный массив:'); for i:=1 to n do write(a[i],' '); end.
3) const n=6; m=5; var a:array[1..n] of integer; b:array[1..m] of integer; c:array[1..n+m] of integer; i:integer; begin writeln('Введите ',n,' элементов массива a:'); for i:=1 to n do read(a[i]); writeln('Введите ',m,' элементов массива b:'); for i:=1 to m do read(b[i]); for i:=1 to n do c[i]:=a[i]; for i:=1 to m do c[n+i]:=b[i]; writeln('Новый массив:'); for i:=1 to n+m do write(c[i],' '); writeln; end.
Answers & Comments
Verified answer
1)const n=6;
var a:array[1..n] of integer;
i:integer;
begin
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do read(a[i]);
writeln('Измененный массив:');
for i:=1 to n do
begin
a[i]:=-a[i];
write(a[i],' ');
end;
writeln;
end.
Пример:
Введите 6 элементов массива:
5 -8 7 -9 4 3
Измененный массив:
-5 8 -7 9 -4 -3
2)
const n=6;
var a:array[1..n] of real;
i:integer;
begin
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do read(a[i]);
for i:=1 to n div 2 do a[i]:=2*a[i];
for i:=n div 2+1 to n do a[i]:=a[i]/2;
writeln('Измененный массив:');
for i:=1 to n do write(a[i],' ');
end.
Введите 6 элементов массива:
12 -8 35 -14 61 -72
Измененный массив:
24 -16 70 -7 30.5 -36
3)
const n=6; m=5;
var
a:array[1..n] of integer;
b:array[1..m] of integer;
c:array[1..n+m] of integer;
i:integer;
begin
writeln('Введите ',n,' элементов массива a:');
for i:=1 to n do read(a[i]);
writeln('Введите ',m,' элементов массива b:');
for i:=1 to m do read(b[i]);
for i:=1 to n do c[i]:=a[i];
for i:=1 to m do c[n+i]:=b[i];
writeln('Новый массив:');
for i:=1 to n+m do write(c[i],' ');
writeln;
end.
Пример:
Введите 6 элементов массива a:
12 65 48 30 81 27
Введите 5 элементов массива b:
54 60 19 73 16
Новый массив:
12 65 48 30 81 27 54 60 19 73 16