Question

Массив на 13 значение, заполнем случайными целыми двузначными числами. Найти максимальное значение и его номер

Answer 1

PascalABC.NET

begin

 var mas:=ArrRandom(13,10,99);

 mas.Println;

 write(mas.LastIndexMax,' ');

 write(mas.Max)

end.

Answer 2

Программа на С++

#include <iostream>

#include <cstdlib>

#include <ctime>

using namespace std;

int main(){

int n = 13;

int ar[n];

int a = 10;

int b = 99;

srand(time(NULL));

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

ar[i] = rand()%(b-a+1)+a;

cout << ar[i] << " ";

} cout << endl;

int max = ar[0];

int ind_max = 0;

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

if (ar[i] > max) {

max = ar[i];

ind_max = i;

}

}

cout << "Максимальный элемент: " << max << endl;

cout << "Его индекс: " << ind_max << endl;

return 0;

}