Question

Напишите программу на языке Pascal. Дан целочисленный массив из 5 элементов (значения от 0 до 1000). Найти количество двузначных чисел массива (k=k+1). Буду признательна, если программа будет адаптирована под ввод на компьютере и будет правильно выполняться в приложении Pascal ABC.

Answer 1

Ответ:

begin

 var arr := ArrRandomInteger(5, 0, 1000);

 arr.Println;

 var quantity := 0;

 for var i := 0 to arr.Length - 1 do

 begin

   if (arr[i] > 9) and (arr[i] < 100) then

   begin

     inc(quantity);

   end;

 end;

 write(quantity);

end.

Объяснение:

begin  // Начало программы

 var arr := ArrRandomInteger(5, 0, 1000);   // Объявление массива размером 5 + заполнение массива случайными значениями из диапазона [0, 1000].

arr.Println;  // Вывод массива

var quantity := 0;  // Переменная, хранящая количество элементов, равна 0

for var i := 0 to arr.Length - 1 do  // Идём от нуля до размера массива - 1

begin  // Начало цикла

   if (arr[i] > 9) and (arr[i] < 100) then   // Если значение массива с индексом i > 9 И < 100, тогда

 begin  // Начало условного оператора

  begin  // Начало условного оператора

    inc(quantity);  // Увеличиваем значение переменной quantity на единицу

  end;  // Конец условного оператора

end;  // Конец цикла

write(quantity);  // Выводим ответ

end. // Конец программы

Answer 2

Конечно, вот пример программы на языке Pascal, который решает задачу подсчета двузначных чисел в массиве:

pascalCopy code
program CountTwoDigitNumbers;

var
  arr: array[1..5] of Integer;
  i, k: Integer;

begin
  // Ввод элементов массива
  for i := 1 to 5 do
  begin
    Write('Введите элемент массива arr[', i, ']: ');
    Readln(arr[i]);
  end;

  // Инициализация счетчика двузначных чисел
  k := 0;

  // Подсчет двузначных чисел
  for i := 1 to 5 do
  begin
    if (arr[i] >= 10) and (arr[i] <= 99) then
      k := k + 1;
  end;

  // Вывод результата
  writeln('Количество двузначных чисел в массиве: ', k);
end.

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