Работа 3.6 Упр.15 ГДЗ Семакин 10 класс (Информатика)

Задача

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

Подробный ответ

Нужно пройти по исходному массиву и выбрать только те элементы, у которых последняя цифра равна $$k$$. Для этого создаём новый массив и счётчик его элементов.

Если для элемента $$a[i]$$ выполняется условие $$a[i] \bmod 10 = k$$, то этот элемент записывается в новый массив $$b$$.

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.