Question

Дан целочисленный одномерный массив, состоящий из n элементов. Найти количество элементов, которые кратны 4 ПОЖАЛУСТА!МНЕ СРОЧНО!!Осталось 3 минуты!!! Язык Паскаль!!!

Answer 1

Программа:
Pascal:

var

 arr: array of integer;

 i, n, count: integer;

begin

 randomize;  // используем процедуру randomize

 write('n = ');  readln(n); // вводим число n

 SetLength(arr, n); // устанавливаем длину массива - это n

 for i := 0 to n - 1 do

   arr[i] := random(-100, 100); // заполняем масив случайными числами от -100 до 100

 writeln(arr);  // выводим массив

 

 for i := 0 to n - 1 do  // i принимает значения от 0 до n - 1

   if abs(arr[i]) mod 4 = 0 then  // если элемент с индексом i делится на 4 без остатка, то ...

     inc(count);  // ... увеличиваем значение переменной count на 1

 writeln(count); // выводим count

end.

Результат:

n = 15

[-48,8,-79,42,-98,1,48,-35,39,71,69,76,51,-63,-76]

5

n = 10

[75,-1,15,27,-67,22,99,-66,31,7]

0

n = 25

[-89,0,47,26,26,-35,-7,77,37,-51,86,-89,88,-73,39,-23,-23,-63,-14,-8,21,2,98,56,-12]

5

#SPJ1

Answer 2

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

pascalCopy code
program CountMultiplesOfFour;
var
  arr: array of Integer;
  n, i, count: 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;
  for i := 0 to n - 1 do
  begin
    if arr[i] mod 4 = 0 then
      count := count + 1;
  end;

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

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

Обратите внимание, что в примере используется динамический массив (объявленный с помощью array of Integer). Это означает, что размер массива определяется пользователем во время выполнения программы.