Question

Дан массив целых чисел. Найти номера элементов, окан­ чивающихся цифрой 0 (известно, что такие элементы в мас­сиве есть) в паскале

Answer 1

Var
 mas:array[1..100] of integer;
 i,n:integer;
begin
 readln(n);
 for i:=1 to n do
  read(mas[i]);
 for i:=1 to n do
 begin
  if mas[i] mod 10 = 0 then
   write(i,' ');
 end;
end.

Answer 2

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

В паскале код для решения этой задачи может выглядеть следующим образом:

lessCopy code
program find_zeros;

const
  n = 10; // размер массива
var
  arr: array[1..n] of integer;
  zeros: array[1..n] of integer; // массив для сохранения индексов нулевых элементов
  count, i: integer;

begin
  // инициализируем массив случайными значениями
  for i := 1 to n do
    arr[i] := Random(100); // генерируем случайное число от 0 до 99

  // перебираем все элементы массива
  count := 0; // счетчик нулевых элементов
  for i := 1 to n do
  begin
    if arr[i] mod 10 = 0 then // если последняя цифра элемента равна 0
    begin
      count := count + 1;
      zeros[count] := i; // сохраняем индекс нулевого элемента
    end;
  end;

  // выводим результаты
  Writeln('Array:', arr);
  Writeln('Indices of elements ending with 0:');
  for i := 1 to count do
    Write(zeros[i], ' ');
end.

Эта программа создает массив arr размера 10 и заполняет его случайными значениями от 0 до 99. Затем она перебирает все элементы массива, проверяет, оканчивается ли текущий элемент на цифру 0, и если да, то сохраняет его индекс в массив zeros. В конце программа выводит исходный массив и индексы элементов, оканчивающихся на 0.

Обратите внимание, что в данном решении мы используем оператор % (остаток от деления) для проверки последней цифры числа. Этот оператор возвращает остаток от деления двух чисел, поэтому arr[i] mod 10 вернет последнюю цифру числа arr[i].