Question

Дан массив целых чисел {zi}, i = 1, 2, . . . , n. Найти количество и сумму тех членов данного массива, которые делятся на 3 и не делятся на 4. Написать в паскаль очень срочно

Answer 1

Const
   N = 13;
Var
   Z:array[1..N] of integer;
   i:integer;
   S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    Z[i]:=random(2*N+1)-N;
    Write(' ',Z[i]);
    if (Z[i] mod 3 = 0)and(Z[i] mod 4 <> 0) then S:=S+Z[i];
    End;
WriteLn;
WriteLn('S = ',S);
End.

Answer 2

Конечно, давайте напишем программу на языке Pascal для нахождения количества и суммы тех элементов массива, которые делятся на 3 и не делятся на 4. Предположим, что у вас есть массив целых чисел `arr` и его размер равен `n`. Вот пример кода на Pascal:

program FindDivisibleBy3AndNotBy4;

const
  MaxArraySize = 100; // Максимальный размер массива

var
  arr: array[1..MaxArraySize] of integer; // Объявление массива
  n, i, count, sum: integer; // Переменные

begin
  // Ввод размера массива
  writeln('Введите размер массива (n): ');
  readln(n);

// Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('arr[', i, ']: ');
    readln(arr[i]);
  end;

// Инициализация переменных
  count := 0;
  sum := 0;

// Поиск и подсчет элементов, делящихся на 3 и не делящихся на 4
  for i := 1 to n do
  begin
    if (arr[i] mod 3 = 0) and (arr[i] mod 4 <> 0) then
    begin
      count := count + 1;
      sum := sum + arr[i];
    end;
  end;

// Вывод результатов
  writeln('Количество элементов, делящихся на 3 и не делящихся на 4: ', count);
  writeln('Сумма таких элементов: ', sum);

end.

Этот код сначала запрашивает у пользователя размер массива `n` и затем вводит элементы массива. После этого он проходит по массиву, проверяет условия (деление на 3 и не деление на 4) и подсчитывает количество и сумму подходящих элементов. Результаты выводятся на экран.