//PascalABC.NET 3.1 сборка 1200 begin var n := ReadInteger('n='); var a := MatrixRandom(n, n, 0, 10); println(a);
var d := new System.Collections.Generic.Dictionary<integer, integer>(); for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do begin if d.ContainsKey(a[i, j]) then d[a[i, j]] += 1 else d.Add(a[i, j], 1); end;
var p := d.OrderByDescending(x -> x.Value).First(); println('Чаще всего встречается ' + p.Key + ', ' + p.Value + ' раз'); end.
Спираль из центра массива по часовой стрелке (для нечетных n): const n=7; var a:array[1..n,1..n] of integer; i,j,d,k,l,m:integer; begin k:=n*n; i:=n div 2 + 1; j:=n div 2 + 1; a[i,j]:=k; d:=1; for m:=1 to n div 2 do begin for l:=1 to d do begin k:=k-1; j:=j+1; a[i,j]:=k; end; for l:=1 to d do begin k:=k-1; i:=i+1; a[i,j]:=k; end; d:=d+1; for l:=1 to d do begin k:=k-1; j:=j-1; a[i,j]:=k; end; for l:=1 to d do begin k:=k-1; i:=i-1; a[i,j]:=k; end; d:=d+1; end; d:=d-1; for l:=1 to d do begin k:=k-1; j:=j+1; a[i,j]:=k; end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; end.
Объяснение:
#include <iostream>
#include <cmath>// для степени (pow)
#include <iomanip>//для округления с точностью до n знаков после запятой(fixed<<setprecision(x))
using namespace std;
int main()
{
double x=3, y;
//cin >> x;
y=(pow(x,2) + 3*x - 4) / (2*x - 3) - (x+2)/(pow(x,2)-5*x+7);
cout << "y = " <<fixed<<setprecision(3) << y <<endl;
return 0;
}