Question

Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру к.

Answer 1

VAR
   a,b: array[1..100] of integer;
   i,n,n1,k: byte;
BEGIN
   Randomize;
   Write('введите n: ');
   ReadLn(n);
   WriteLn('массив');
   For i:=1 to n do
      Begin
         a[i]:=Random(101)-50;
         Write(a[i],' ');
      End;
   WriteLn;
   Write('введите k: ');
   ReadLn(k);
   For i:=1 to n do
      If a[i] mod 10 = k then
         Begin
            inc(n1);
            b[n1]:=a[i];
         End;
   WriteLn('новый массив');
   For i:=1 to n1 do write(b[i],' ');
   ReadLn;
END.