Question

СРОЧНО ИНФОРМАТИКА 9 КЛАСС Работа с системой программирования на языке Паскаль Напишите программу для реализации следующего сценария: • целочисленный массив заполняется случайными числами (размерность массива и числовой диапазон определите самостоятельно); • выводится сообщение «Заполненный массив»; • с новой строки выводятся элементы массива в строку через пробел; • выводится сообщение «Введите значение числа К»; • запрашивается ввод с клавиатуры целочисленного значения числа К; • выводится сообщение «Элементы массива, кратные К»; • осуществляется поиск в массиве элементов, кратных числу К; • выводятся элементы массива, кратные числу К.

Answer 1

Ответ: Программа рабочая, проверена.

Program zadacha;

var  

 a: array [1..50] of integer; // размерность массива = 50

 i,k: integer;

begin

begin

 for i:=1 to 50 do

   a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве

 writeln('Заполненный массив: ');

 for i:=1 to 50 do

   write(a[i],' '); end; // выводим массив на экран до проверки

writeln; //новая строка

writeln('Введите значение числа K: '); readln(k);

writeln('Элементы массива, кратные K:');

for i:=1 to 50 do

if (a[i] mod k = 0) then write(a[i],' ');  

end.

Объяснение:

i - порядковый номер элемента

a - сам массив

k - вводимое число

В остальном оставила комментарии.

Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было вопроса о вводе элементов или вводе размерности.

Answer 2

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

pascalCopy code
program ArraySearch;

const
  N = 10; // Размерность массива
  MinValue = 1; // Минимальное значение случайных чисел
  MaxValue = 100; // Максимальное значение случайных чисел

var
  arr: array[1..N] of integer;
  K, i: integer;

begin
  // Заполняем массив случайными числами
  randomize;
  for i := 1 to N do
    arr[i] := random(MaxValue - MinValue + 1) + MinValue;

  // Выводим заполненный массив
  writeln('Заполненный массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  // Ввод значения числа K
  writeln;
  writeln('Введите значение числа K:');
  readln(K);

  // Выводим элементы массива, кратные K
  writeln('Элементы массива, кратные ', K, ':');
  for i := 1 to N do
    if arr[i] mod K = 0 then
      write(arr[i], ' ');

  writeln;
end.

Эта программа создает массив из 10 случайных целых чисел в диапазоне от 1 до 100, затем запрашивает ввод числа K и выводит элементы массива, которые кратны K.