Запись четных элементов массива в новый массив на Pascal
Запись четных элементов массива в новый массив...
const
Sz = 100;
var
a,b: array [1..Sz] of integer;
aN: integer; // Количество элементов в массиве a
bN: integer; // Количество элементов в массиве b
begin
aN := 20;
for var i:=1 to aN do
a[i] := Random(100);
writeln('Элементы массива: ');
for var i:=1 to aN do
write(a[i],' ');
writeln;
bN := 0;
for var i:=1 to aN do
if a[i] mod 2 = 0 then
begin
bN += 1;
b[bN] := a[i];
end;
writeln('Четные элементы массива: ');
for var i:=1 to bN do
write(b[i],' ');
end.
10.02.2015, 10:43 -
Категория: Статьи » Программирование » Pascal