Question

Дан массив из 10 целых чисел в диапазоне [-10000,10000]. Определите количество чисел, оканчивающихся на 2. Числа вводятся с клавиатуры! Написать в Паскале)

Answer 1

Program z;
var a: array [1..10] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do if a[i] mod 10 = 2 then k:=k+1;
writeln(k);
end.

Answer 2

Вот пример программы на Pascal, которая считывает 10 целых чисел с клавиатуры и определяет количество чисел, оканчивающихся на 2:

pascalCopy code
program CountNumbersEndingWith2;

const
  ArraySize = 10;

var
  Numbers: array[1..ArraySize] of integer;
  i, CountNumbersEndingWith2: integer;

begin
  CountNumbersEndingWith2 := 0;

  { Считываем числа с клавиатуры }
  writeln('Введите 10 целых чисел:');
  for i := 1 to ArraySize do
  begin
    write('Число ', i, ': ');
    readln(Numbers[i]);
  end;

  { Проверяем каждое число из массива }
  for i := 1 to ArraySize do
  begin
    if Numbers[i] mod 10 = 2 then
      Inc(CountNumbersEndingWith2);
  end;

  writeln('Количество чисел, оканчивающихся на 2: ', CountNumbersEndingWith2);
end.

При запуске этой программы она предложит ввести 10 целых чисел с клавиатуры. После ввода всех чисел она подсчитает количество чисел, оканчивающихся на 2, и выведет результат на экран.