Question

Дан целочисленный массив из 10 элементов. Напишите программу, которая находит количество пар элементов массива, в которых хотя бы одно число делится на 3, под парой подразумевается два идущих подряд массива. Например : 6;2 ;9;-3;6. Ответ :4. работа в паскаль, помогите плиз

Answer 1

Извиняюcь за то что долго
program z1;
var a:array[10];
k,i:integer;
begin
k:=0;
readln(a);
for i:= 1 to 9 do
if (a[i] mod 3 =0) or (a[i+1] mod 3 = 0) then k:=k+1;
end;
writeln(k);
end.

Answer 2

Привет! Вот решение задачи нахождения количества пар элементов массива, в которых хотя бы одно число делится на 3 на языке Pascal:

program CountPairs;

const
  N = 10; // количество элементов в массиве

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

begin
  count := 0; // инициализируем счетчик пар нулем

// заполняем массив случайными значениями
  Randomize;
  for i := 1 to N do
    arr[i] := Random(20) - 10; // генерируем случайное число от -10 до 10

// выводим массив на экран
  Write('Массив: ');
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;

// находим количество пар, в которых хотя бы одно число делится на 3
  for i := 1 to N - 1 do
  begin
    if (arr[i] mod 3 = 0) or (arr[i + 1] mod 3 = 0) then
      count := count + 1;
  end;

// выводим количество найденных пар
  Writeln('Количество пар, в которых хотя бы одно число делится на 3: ', count);

Readln;
end.

Программа начинается с объявления константы N, которая задает размер массива (в данном случае 10). Затем объявляются переменные arr (массив), count (счетчик пар) и i (переменная для цикла).

Далее идет основная часть программы. С помощью цикла for массив arr заполняется случайными значениями от -10 до 10. Затем массив выводится на экран.

Затем следует цикл, который проходит по всем элементам массива, кроме последнего. Внутри цикла проверяется, делится ли хотя бы одно из чисел на 3. Если да, то счетчик count увеличивается на 1.

В конце программы выводится количество найденных пар.

Надеюсь, это помогло! Если у тебя есть еще вопросы, не стесняйся задавать.