Question

ПАСКАЛЬ!!!!! Найти номер второго элемента, кратного 5. Массив заполняется случайными числами из промежутка [-12;12].

Answer 1

Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.

Answer 2

Конечно! Вот пример кода на языке Паскаль, который находит номер второго элемента в массиве, кратного 5:

pascalCopy code
program FindSecondMultipleOfFive;

var
  arr: array[1..10] of Integer;
  i, count, secondMultipleIndex: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел

  // Заполнение массива случайными числами
  for i := 1 to 10 do
    arr[i] := Random(25) - 12; // Генерация числа от -12 до 12

  count := 0;
  secondMultipleIndex := 0;

  // Поиск второго элемента, кратного 5
  for i := 1 to 10 do
  begin
    if (arr[i] mod 5 = 0) then
    begin
      Inc(count);
      if (count = 2) then
      begin
        secondMultipleIndex := i;
        Break;
      end;
    end;
  end;

  // Вывод результатов
  if (secondMultipleIndex <> 0) then
    WriteLn('Номер второго элемента, кратного 5: ', secondMultipleIndex)
  else
    WriteLn('Второго элемента, кратного 5, нет в массиве.');

  ReadLn;
end.

В этом примере создается массив arr, состоящий из 10 целочисленных элементов. Затем массив заполняется случайными числами в диапазоне от -12 до 12. Затем выполняется поиск второго элемента, кратного 5, и выводится его номер. Если в массиве нет второго элемента, кратного 5, выводится соответствующее сообщение.

Обратите внимание, что этот код может быть запущен в среде разработки, поддерживающей язык Паскаль, такую как Free Pascal или Turbo Pascal.