Решить в ПаскальАВС!!!!!!!!!!!!!!!!!!!
Ответы
Ответ:
const M = 10;
var A: array [1..M] of integer;
var B: array [1..M] of integer;
var i,j: integer;
begin
// Задаем элементы массива
randomize();
writeln('Массив A: ');
For i:= 1 to M do
begin
A[i]:=random(77)-31;
write(A[i],' ');
end;
j:=1;
writeln();
writeln('Массив B: ');
For i:= 1 to M do
begin
if (A[i] mod 2 <> 0) then
begin
B[j]:=A[i];
write(B[j],' ');
j:=j+1;
end;
end;
end.
const n = 20;
var A: array [1..n] of integer;
B: array of integer;
i: integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := Random(45 + 31 + 1) - 31;
write(a[i]:4);
end;
writeln();
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
SetLength(B, Length(B) + 1);
B[High(B)] := a[i];
end;
writeln('Нечетные элементы:');
for i := 0 to Length(B) - 1 do
write(B[i]:4);
writeln();
end.