Question

Имеется массив А(1.h). Подсчитать количество элементов массива кратных некоторому числу P

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('h='),-99,99); a.Println;
  var p:=ReadInteger('P=');
  Writeln(a.Where(t->t mod p=0).Count,' элементов,кратных ',p)
end.

Пример
h= 50
55 28 15 -95 70 -68 -3 -82 -64 -62 -3 -64 -85 15 55 73 77 -94 54 12 -48 -62 28 67 80 96 28 -45 37 76 -40 24 -73 -30 -16 -97 -38 99 30 17 -1 -25 5 -42 85 -62 1 -97 -87 -30
P= 9
3 элементов,кратных 9

Answer 2

Спасибо

Answer 3

Пожалуйста. Но все же пишите хотя бы А(1..h) про массив, или A[1..h], а лучше просто A(h)