// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 begin var n:=5; var z:=MatrixRandom(n,n,10,99); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(z[i,j]); Writeln end; var imin:=0; var jmin:=n-1; for var i:=1 to n-1 do if z[i,n-i-1]<z[imin,jmin] then begin imin:=i; jmin:=n-i-1 end; Writeln('Zmin=Z[',imin+1,',',jmin+1,']=',z[imin,jmin]) end.
Возможно, не самое эффективное решение #include <iostream> #include <cstdlib> #include <ctime> int main() { using namespace std; const int N = 10; int A[N]; srand(time(0)); for (int i = 0; i < N; ++i) A[i] = rand() % 201 - 100;
//Вывод исходного массива на экран for (int i = 0; i < N; ++i) cout << A[i] << " "; cout << endl;
//Подсчитаем количества положительных и отрицательных int kpos = 0, kneg = 0; for (int i = 0; i < N; i++) if (A[i] > 0) ++kpos; else ++kneg;
int * Apos = new int[kpos]; int * Aneg = new int[kneg]; int pos = 0, neg = 0; for (int i = 0; i < N; ++i) if (A[i] > 0) Apos[pos++] = A[i]; else Aneg[neg++] = A[i];
for (int i = 0; i < N; ++i) if (i < kpos) A[i] = Apos[i]; else A[i] = Aneg[i - kpos];
delete[] Apos; delete[] Aneg;
//Вывод полученного массива на экран for (int i = 0; i < N; ++i) cout << A[i] << " "; cout << endl; return 0; }
если A>B и A>C то большее равно A
если B>A и B>C то большее равно B
если C>A и C>B то большее равно C