Найдите количество натуральных чисел не превышающих 100 и кратных 5

100/5=20

Всё правильно, 100 делим на 5 и получаем 20.

1) /* функция, которая суммирует все элементы массива arr. массив arr имеет размерность size. по умолчанию size=10 */ int sum(int* arr, int size=10) { int result=0; for(int i=0; i < size; i++){ result += arr[i]; } return result; } 2) /* функция, которая ищет минимальный элемент массива arr. size - размерность массива arr. по умолчанию size=10 */ int minelem(int* arr, int size=10) { int min=arr[0]; for(int i=1; i < size; i++){ if( arr[i] < min ){ min=arr[i]; } } return min; } 3. /* функция, которая заносит в массив arr_to все четные числа массива arr_from. size - размерность массива arr_from. по умолчанию size=10 */ void even(int* arr_from, int* arr_to, int size=10) { int count=0; for(int i=0; i < size; i++){ if( i%2 == 0 ){ arr_to[count]=arr_from[i]; count++; } }

Правильность расстановки кораблей не проверяется! в программе сразу дан пример! const n=5; var a: array[1..n,1..n] of byte= ((1,0,1,0,1),   (1,0,0,0,1),   (0,0,1,0,1),   (1,0,0,0,0),   (0,0,1,1,0));   k, i, j: integer; begin if a[1,1]=1 then k: =1 else k: =0; for j: =2 to n do   if (a[1,j-1]=0)and(a[1,j]=1) then k: =k+1; for i: =2 to n do   begin   if (a[i-1,1]=0)and(a[i,1]=1) then k: =k+1;   for j: =2 to n do   if (a[i-1,j]=0)and(a[i,j-1]=0)and(a[i,j]=1) then k: =k+1;   end; writeln('k = ',k); end. результат: k = 6