Question

Решите пожалуйста!!!!!!!!!!!!!!! Напишите программу на языке Паскаль для решения задачи: Дан целочисленный одномерный массив, состоящий из n элементов. Найти количество элементов, которые кратны 4.

Answer 1

Ответ:

program z;

var n,i,k:integer;

m:array[1..32767] of integer;

begin

read(n);

k:=0;

for i:=1 to n do

begin

read(m[i]);

if m[i] mod 4 = 0 then k:=k + 1

end;

write(k)

end.

Объяснение:

вводим количество (1 <= n <= 32767) элементов массива (read(n);)

используя цикл со счётчиком (for i:=1 to n do):

вводим элементы массива с клавиатуры (read(m[i]);)

используя неполный условный оператор (if m[i] mod 4 = 0 then k:=k + 1) проверяем эти элементы на кратность 4

(если условие (m[i] mod 4 = 0) истинно, то увеличиваем (k:=k + 1) переменную k на 1)

выводим результат (write(k))

mod - остаток от целочисленного деления (если результат mod равен 0, то число делится без остатка, т.е. является кратным)

Answer 2

Конечно, вот пример программы на языке Pascal для нахождения количества элементов в целочисленном массиве, которые кратны 4:

pascalCopy code
program CountMultiplesOf4;
var
  n, i, count: integer;
  arr: array of integer;
begin
  // Ввод количества элементов в массиве
  write('Введите количество элементов в массиве: ');
  readln(n);

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

  // Инициализация счетчика кратных 4
  count := 0;

  // Подсчет элементов, кратных 4
  for i := 0 to n - 1 do
  begin
    if arr[i] mod 4 = 0 then
      count := count + 1;
  end;

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

  // Завершение программы
end.

Эта программа сначала запрашивает у пользователя количество элементов в массиве, затем вводит сами элементы и подсчитывает количество элементов, которые кратны 4. Результат выводится на экран.