Паскаль. Дан двумерный массив, необходимо найти количество элементов, кратных 5.
Набросала, что смогла. Понимаю, что у знающих людей скорее всего кровь из глаз потечет, но если на деле не все так плохо, подскажите, где ошибки.
program a2;
var
n,m,a,b,i,j,s :integer;
mmas: array [1..50,1..50] of integer;
begin
i:=0;
j:=0;
writeln ('Размерность массива (числа от 1 до 49): ');
read (m,n);
for a:= 1 to n do
for b:= 1 to m do
mmas[a,b]:= random (49);
for i:= 1 to 49 do
for j:= 1 to 49 do
if (a[i] mod 5=0) then i:=1+i;
repeat i:=1+i until a=49;
if (b[i] mod 5=0) then j:=1+j;
repeat j:=1+j until b=49;
s:=i+j;
writeln (s);
end.

Меньше чем 3-х основание СС быть не может. (Сама догадайся почему ;-)  

Делим:  

23 : 3 = 7 ост. 2 — подходит  

23 : 4 = 5 ост. 3 — не подходит  

23 : 5 = 4 ост. 3 — не подходит  

23 : 6 = 3 ост. 5 — не подходит  

23 : 7 = 3 ост. 2 — подходит  

23 : 8 = 2 ост. 7 — не подходит  

23 : 9 = 2 ост. 5 — не подходит  

23 : 10 = 2 ост. 3 — не подходит  

23 : 11 = 2 ост. 1 — не подходит  

23 : 12 = 1 ост. 11 — не подходит  

23 : 13 = 1 ост. 10 — не подходит  

23 : 14 = 1 ост. 9 — не подходит  

23 : 15 = 1 ост. 8 — не подходит  

23 : 16 = 1 ост. 7 — не подходит  

23 : 17 = 1 ост. 6 — не подходит  

23 : 18 = 1 ост. 5 — не подходит  

23 : 19 = 1 ост. 4 — не подходит  

23 : 20 = 1 ост. 3 — не подходит  

23 : 21 = 1 ост. 2 — подходит  

23 : 22 = 1 ост. 1 — не подходит  

23 : 23 = 1 ост. 0 — не подходит  

Далее для всех СС больше 23 остаток будет 23. Следовательно нет смысла их рассматривать.  

Итого: 2, 7 и 21.

#include <iostream>

int main() {

const int SIZE = 10;

bool isSence = false;

int sum = 0;

int count = 0;

int arr[SIZE];

for (int i = 0; i < SIZE; i++)

{

 arr[i] = rand() % 20 - 10; // "рандомно" заполняем массив от -10 до 10

 std::cout << arr[i] << "\t"; // выводим массив в консоль

 if (arr[i] >= 0)

  isSence = true;

}

for (int i = 0; i < SIZE; i++)

{

 if ((isSence) && (arr[i] > 0))

  sum += arr[i]; //sum = sum + arr[i];

  count++;

}

if (isSence)

 std::cout << "\nсреднее арифметическое положительных чисел = " << double(sum) / count << std::endl; // явное приведение типов

else

 std::cout << "\nВ массиве нету положительных чисел или нету нулей и/или отрицательных чисел" << std::endl;

return 0;

}