Запись четных элементов массива в новый массив на 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.



Просмотров: 2240
10.02.2015, 10:43 -

Категория: Статьи » Программирование » Pascal