Question

❓❓❓Дан массив целых чисел B(40). Составить программу для вычисления количества элементов массива, которые кратны 5 .​

Answer 1

                                     PascalABC.NET                                      

Ответ:

С ручным заполнением:

• begin
• Print('Количество:', ReadArrInteger(40).Count(x->x mod 5 = 0) );
• end.

С рандомным заполнением:

• begin
• var b := ArrRandom(40,0,100);
• b.Println;
• Print('Количество:', b.Count(x->x mod 5 = 0) );
• end.

Пример работы: