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

Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4.

Comments

я прочитал про синтаксис pascal сейчас напишу программу

---

@avion321321 ничего страшного, спасибо за заинтересованность в вопросе.

---

@happyalya1 извини, на паскале не пишу, вообще не понимаю зачем современным школьникам его до сих пор преподают, это мертвый язык

---

@avion321321 паскаль

---

паскаль

Answer 1

Ответ:

var

 a: array [1..1000] of integer;

 N: integer;

 i: integer;

 Product: integer;

begin

 cnt := 0;

 write('Введите количество элементов в массиве: ');

 readln(N);

 write('Введите элементы массива: ');

 for i:=1 to N do

 begin

   read(a[i]);

   if (a[i] mod 4 = 0) then

   begin

       cnt = cnt + 1;

   end;

 end;

   

 write('Количество элементов кратных 4: ', cnt);

end.

Comments

спасибо огромное