Program primer; procedure random(c,x,y:integer; var r:integer); begin case c of 1 : r:=Random(ABS(Y)+ABS(x)+1)+x; 2 : r:=Random(ABS(Y)+ABS(x)+1)+y; 3 : r:=Random(Y-x+1)+x; 4 : r:=Random(x-y+1)+y; 5 : r:=Random(x+y); 6 : r:=Random(ABS(x+y))-ABS(x+y); 7 : r:=x; 8 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(x); 9 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(y); end; end; var a: array of array of integer; i,j,x,y,m,p,pro,c:integer; begin Randomize; pro:=1; writeln('Кол-во строк и столбцов массива? //X,Y\\ '); read(i,j); //Размерность массива writeln('Диапазон чисел //от X,до Y\\ '); read(x,y); //и диапазон генерации вводятся с клавиатуры. if (x=y) then c:=7 else if(x<0) and (y<0) then if (x<y) then c:=8 else c:=9 else if (x=0) or (y=0) then if(x<0) or (y<0) then c:=6 else c:=5 else if(x<0) or (y<0) then if (x<y) then c:=1 else c:=2 else if (x<y) then c:=3 else c:=4; SetLength(a,i); for m:=0 to i-1 do SetLength(a[m],j); for m:=0 to i-1 do begin writeln(); for p:=0 to j-1 do begin random(c,x,y,a[m,p]); {Заполнить матрицу случайными числами} if (m<>p) then pro:=pro*a[m,p]; {Вычислить произведение элементов массива, лежащих вне главной диагонали.} write (a[m,p]:3,' ':3); end; end;
Пример на С# : int N = int.Parse(Console.readline()); //ввод переменных int M = int.Parse(Console.readline()); int [] A = new int [N];//ввод массива и задание кол-ва мест в массиве int t = 0;// доп переменная кол-во учеников нужного роста random a = new random();// метод рандом (не указано как заполнять массив и я выбрал рандомно for (int i = 0: i < N - 1; i ++) // перебор и задание значений переменным { A[i] = a.Next(150,200); // От 150 см до 200 см :) }
for (int i = 0: i < N - 1; i ++) // опять перебор массива { if (A[i] < M) // определение кол-ва учеников { t ++; } } console.writeline("Количество учеников " + t.toString()); // вывод переменной
ответ:n ×75
Объяснение: