Question

Дан целочисленный одномерный массив. Найти номера элементов массива, значения которых кратны 4 или 6. В паскале. как можно проще.​

Answer 1

program mas_krat_4_or_6;

const n=10;

var

a:array[1..n] of integer;

i:integer;

begin

for i:=1 to n do

a[i]:=random(101);

for i:=1 to n do

write(a[i],' ');

writeln;

for i:=1 to n do

if (a[i]mod 4 =0)or(a[i]mod 6 =0)

then

write(i,' ');

readln;

end.

Answer 2

Вот пример кода на языке Pascal (Object Pascal), который находит номера элементов массива, значения которых кратны 4 или 6:

pascalCopy code
program FindMultiples;

const
  N = 10; // Здесь можно изменить размер массива

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

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

  // Поиск и вывод номеров элементов, кратных 4 или 6
  Write('Номера элементов, кратных 4 или 6: ');
  for i := 1 to N do
  begin
    if (arr[i] mod 4 = 0) or (arr[i] mod 6 = 0) then
      Write(i, ' ');
  end;

  Readln; // Чтобы консольное окно не закрылось сразу
end.

Программа запрашивает ввод элементов массива и затем выводит номера элементов, значения которых кратны 4 или 6.