Дан двумерный массив размером найти мин.элемент найти количество элементов равных этому во всем масиве

Var i,j,k,min: integer;     a: array[1..10,1..10] of integer; begin   randomize;   for i: =1 to 10 do   for j: =1 to 10 do     a[i,j]: =random(15)+1;   min: =a[1,1];   for i: =1 to 10 do   for j: =1 to 10 do     if a[i,j]< min then min: =a[i,j];   for i: =1 to 10 do   for j: =1 to 10 do     if min=a[i,j] then k: =k+1;   for i: =1 to 10 do   begin   for j: =1 to 10 do write(a[i,j]: 5);   writeln;   end;   writeln('минимальный элемент=',min);   writeln('кол-во равных элементов=',k); end.

#include < stdio.h>   main()  {  int x, s=0, n=0; float sr; file *fin, *fout; fin = fopen("input.txt", "r");   fout = fopen("output.txt", "w"); while (fscanf(fin, "%d", & x) == 1) {     s+=x;     n++; } sr = 1.0*s/n; fclose (fin); fin = fopen("input.txt", "r");   while (fscanf(fin, "%d", & x) == 1) {   if (x < sr) x = 0;   fprintf (fout, "%d ", x); } fclose (fout); fclose (fin); } пример: файл input.txt: 21 45 87 61 90 43 70 15 33 58 файл output.txt: 0 0 87 61 90 0 70 0 0 58 

#include < iostream> using namespace std;   void mxd(int n) {     int k,mx=0;     do {         k=n%10; n/=10;         if (k> mx) mx=k;     }     while (n> 0);         cout< < mx< < endl;   }     int main() {         int n;     cout< < "number: ";   cin> > n;     mxd(n);     system("pause");     return 0; }