Определить значение наибольшего элемента массива заполненного 300 случайными положительными 3 значным числам и определить порядковый номер этого элемента

const

  n = 300;

var

  i, max: integer;

  a: array[1..n] of integer;

begin

  randomize;

  writeln('исходные числа');

  max : = 1;

  for i : = 1 to n do

  begin

      a[i] : = random(900) + 100;

      write(a[i], ' ');

      if i mod 30 = 0 then

          writeln;

      if a[max] < a[i] then

          max : = i;

  end;

  writeln('наибольшим являемся элемент ', max, ' значение которого ', a[max]);

end.

примени эту программу себе, тут и мах и мин  program zadanie4;   uses crt;   var  i: integer;   max,min,maxi,mini: integer;   a: array[1..10] of integer;   begin  clrscr;   randomize;   for i: =1 to 10 do  a: =random(51);   writeln('ischodni file');   writeln('');   for i: =1 to 10 do  write(a: 5);   writeln; writeln;   maxi: =1; max: =a[1];   for i: =2 to 10 do  begin  if a> max then  begin  max: =a;   maxi: =i;   end;   end;   mini: =1; min: =a[1];   for i: =2 to 10 do  if a< min> ;   end;   write('maximalnoe = '); writeln(max);   write('minimalnoe = '); writeln(min);   write('maximalnoe i = '); writeln(maxi);   write('minimalnoe i = '); writeln(mini);   writeln('konec zadachi');   readln;   end.

#include < iostream>

using namespace std;

int main(){

    int n;

    cout< < "n = ";

    cin> > n;

   

    int m=n,k=0;

    while(m){

        k++;

        m=m/10;

    }

   

    int arr[k];

    m=n;

    for(int i=0; i< k; i++){

        arr[i]=m%10;

        m=m/10;

    }

   

    int chet=0,nechet=0;

    for(int i=k-1; 0< =i; i=i-2){

        nechet=nechet+arr[i];

    }

   

    for(int i=k-2; 0< =i; i=i-2){

        chet=chet+arr[i];

    }

   

    if((chet==nechet)||(chet-nechet==11)||(chet-nechet==-11))

        cout< < "n%11=0"< < endl;

    else

        cout< < "n%11! =0"< < endl;

}

#include "stdafx.h"

#include < iostream>

#include < ctime>

using namespace std;

 

int main()

{

srand(time(0));

int n, m, k;

 

cout < < "n = ";

cin > > n;

cout < < "m = ";

cin > > m;

cout < < "k = ";

cin > > k;

 

int a[100][100];

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

{

  for (int j = 0; j < m; j++)

  {

  a[i][j] = 1 + rand() % 10; // от 1 до 10

  }

}

cout < < endl;

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

{

  for (int j = 0; j < m; j++)

  {

  cout < < a[i][j] < < " ";

  }

  cout < < endl;

}

int temp = 0;

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

{

  for (int j = 0; j < m; j++)

  {

  if (a[i][j] == k)

    temp++;

  }

}

cout < < temp < < endl;

system("pause");

    return 0;

}