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