В массиве из 70 целых чисел найти количество элементов, кратных 3

В массиве из 70 целых чисел найти количество элементов, кратных 3
Гость
Ответ(ы) на вопрос:
Гость
const n = 70; var a: array[1..n] of integer; i, k: integer; begin for i:=1 to n do readln(a[i]); k := 0; for i:= 1 to n do   if a[i] mod 3 = 0 then      inc(k); writeln(k); end.
Гость
// PascalABC.NET 3.0, сборка 1128 begin   Writeln('Исходный массив');   var a:=ArrRandom(70,1,1000).Println(',');   Writeln('Количество элементов, кратных 3: ',     a.Where(x->x mod 3=0).Count) end. Тестовое решение: Исходный массив 928,188,299,147,61,366,787,358,715,625,517,552,522,238,569,806,342,808,71,400,176,504,525,242,194,126,595,883,78,627,317,966,478,671,557,665,734,408,665,377,430,2,232,125,161,801,561,541,341,172,273,179,345,584,181,424,663,58,953,935,771,905,280,89,309,552,74,852,682,904 Количество элементов, кратных 3: 21
Не нашли ответ?
Ответить на вопрос
Похожие вопросы