Const m = 10; var a,b: array[1..m] of integer; c: array[1..m*2] of integer; i, j, k: integer; begin write ('Первый массив: '); for i := 1 to m do begin a[i] := random(100); c[i]:=a[i]; write (a[i],'; '); end; writeln; write ('Второй массив: '); for i := 1 to m do begin b[i] := random(100); c[i+m]:=b[i]; write (b[i],'; '); end; writeln; for i := 1 to 2*m-1 do for j := 1 to 2*m-i do if c[j] > c[j+1] then begin k := c[j]; c[j] := c[j+1]; c[j+1] := k end; write ('Отсортированный третий массив: '); for i := 1 to 2*m do write (c[i],'; '); end.
var a: array[1..n] of integer; kOdd, e, i: integer;
begin Randomize; kOdd := 0; write('Исходный массив '); for i := 1 to n do begin e := Random(20) + 1; a[i] := e; if (e mod 2) <> 0 then kOdd := kOdd + 1; write(e:3) end; writeln; writeln('Количество нечетных элементов - ', kOdd) end.
Тестовое решение: Исходный массив 9 2 1 18 17 16 11 15 15 13 Количество нечетных элементов - 7
program ex2;
const n = 10;
var a: array[1..n] of integer; kNeg, e, i: integer;
begin Randomize; kNeg := 0; write('Исходный массив '); for i := 1 to n do begin e := Random(21) - 10; a[i] := e; if e < 0 then kNeg := kNeg + 1; write(e:4) end; writeln; writeln('Количество отрицательных элементов - ', kNeg); end.
Тестовое решение: Исходный массив -9 -1 -7 -4 8 -4 1 -1 -7 0 Количество отрицательных элементов - 7
program ex3;
const n = 10;
var a: array[1..n] of integer; e, i: integer;
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(20); write(a[i]:4) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] mod 2 = 0 then a[i] := 1; write(a[i]:4) end; writeln; end.
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(11) + -5; write(a[i]:4) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] = 0 then a[i] := 1; write(a[i]:4) end; writeln; end.
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(10) + 1; write(a[i]:3) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] = 3 then a[i] := 5; write(a[i]:3) end; writeln; end.
m = 10;
var
a,b: array[1..m] of integer;
c: array[1..m*2] of integer;
i, j, k: integer;
begin
write ('Первый массив: ');
for i := 1 to m do
begin
a[i] := random(100);
c[i]:=a[i];
write (a[i],'; ');
end;
writeln;
write ('Второй массив: ');
for i := 1 to m do
begin
b[i] := random(100);
c[i+m]:=b[i];
write (b[i],'; ');
end;
writeln;
for i := 1 to 2*m-1 do
for j := 1 to 2*m-i do
if c[j] > c[j+1] then
begin
k := c[j];
c[j] := c[j+1];
c[j+1] := k
end;
write ('Отсортированный третий массив: ');
for i := 1 to 2*m do
write (c[i],'; ');
end.
const
n = 10;
var
a: array[1..n] of integer;
kOdd, e, i: integer;
begin
Randomize;
kOdd := 0;
write('Исходный массив ');
for i := 1 to n do
begin
e := Random(20) + 1;
a[i] := e;
if (e mod 2) <> 0 then kOdd := kOdd + 1;
write(e:3)
end;
writeln;
writeln('Количество нечетных элементов - ', kOdd)
end.
Тестовое решение:
Исходный массив 9 2 1 18 17 16 11 15 15 13
Количество нечетных элементов - 7
program ex2;
const
n = 10;
var
a: array[1..n] of integer;
kNeg, e, i: integer;
begin
Randomize;
kNeg := 0;
write('Исходный массив ');
for i := 1 to n do
begin
e := Random(21) - 10;
a[i] := e;
if e < 0 then kNeg := kNeg + 1;
write(e:4)
end;
writeln;
writeln('Количество отрицательных элементов - ', kNeg);
end.
Тестовое решение:
Исходный массив -9 -1 -7 -4 8 -4 1 -1 -7 0
Количество отрицательных элементов - 7
program ex3;
const
n = 10;
var
a: array[1..n] of integer;
e, i: integer;
begin
Randomize;
write('Исходный массив ');
for i := 1 to n do
begin
a[i] := Random(20);
write(a[i]:4)
end;
writeln;
write('Результирующий массив ');
for i := 1 to n do
begin
if a[i] mod 2 = 0 then a[i] := 1;
write(a[i]:4)
end;
writeln;
end.
Тестовое решение:
Исходный массив 3 16 4 1 13 0 14 14 10 18
Результирующий массив 3 1 1 1 13 1 1 1 1 1
program ex4;
const
n = 10;
var
a: array[1..n] of integer;
e, i: integer;
begin
Randomize;
write('Исходный массив ');
for i := 1 to n do
begin
a[i] := Random(11) + -5;
write(a[i]:4)
end;
writeln;
write('Результирующий массив ');
for i := 1 to n do
begin
if a[i] = 0 then a[i] := 1;
write(a[i]:4)
end;
writeln;
end.
Тестовое решение:
Исходный массив 4 -5 0 -2 -4 -5 -2 0 -1 -5
Результирующий массив 4 -5 1 -2 -4 -5 -2 1 -1 -5
program ex5;
const
n = 10;
var
a: array[1..n] of integer;
e, i: integer;
begin
Randomize;
write('Исходный массив ');
for i := 1 to n do
begin
a[i] := Random(10) + 1;
write(a[i]:3)
end;
writeln;
write('Результирующий массив ');
for i := 1 to n do
begin
if a[i] = 3 then a[i] := 5;
write(a[i]:3)
end;
writeln;
end.
Тестовое решение:
Исходный массив 8 9 6 10 10 7 1 3 1 3
Результирующий массив 8 9 6 10 10 7 1 5 1 5