Question

Дан массив из 10 чисел, сформированных случайным образом из диапазона от 0 до 190. Найти первый элемент, кратный 5, и заменить все элементы после него на число 100. Не учитывать случай, когда элемента, кратного 5, нет в массиве.​ Язык программирования - Pascal.

Answer 1

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i, k: integer;

begin

 for i := 1 to 10 do arr[i] := random(0,190);

 writeln(arr);  // генерируем и выводим массив

 

 for i := 1 to 10 do  

   if arr[i] mod 5 = 0 then begin

     k := i;  break

   end;  // определяем индекс первого числа, который кратен 5

 for i := k to 9 do arr[i + 1] := 100;  // заменяем все последующие числа на 10

 

 writeln(arr);

end.

Answer 2

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

program ReplaceElements;

const
  N = 10;

var
  arr: array[1..N] of Integer;
  i, index: Integer;

begin
  // Заполнение массива случайными числами от 0 до 190
  Randomize;
  for i := 1 to N do
    arr[i] := Random(191);

// Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');

// Поиск первого элемента, кратного 5
  index := 0;
  for i := 1 to N do
  begin
    if (arr[i] mod 5 = 0) then
    begin
      index := i;
      break;
    end;
  end;

// Замена элементов после найденного элемента на 100
  if (index <> 0) then
  begin
    writeln;
    writeln('Первый элемент, кратный 5, найден в позиции ', index);
    writeln('Заменяем элементы после него на 100:');
    for i := index + 1 to N do
      arr[i] := 100;
  end
  else
  begin
    writeln;
    writeln('Элемента, кратного 5, не найдено в массиве.');
  end;

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

readln;
end.

Программа использует массив `arr` из 10 случайных чисел в диапазоне от 0 до 190. Затем она ищет первый элемент, кратный 5, и заменяет все элементы после него на 100. Если элемента, кратного 5, нет в массиве, программа выведет соответствующее сообщение.