Возобновляемая, или регенеративная, «зелёная», энергия — энергия из энергетических ресурсов, которые являются возобновляемыми, или неисчерпаемыми, по человеческим масштабам
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 function IsPrime(n:integer):boolean; begin Result:=Range(2,Round(sqrt(n))).All(i->n mod i<>0) end;
begin var n:=9; var a:=MatrixRandom(n,n,3,15); var k:=0; for var i:=0 to n-1 do begin for var j:=0 to n-1 do begin Write(a[i,j]:3); if IsPrime(a[i,j]) then Inc(k) end; Writeln end; Writeln('Простых чисел: ',k) end.
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016 begin var n:=10; var a:=ArrRandom(n,1,99); Print('A:'); a.Println; var b:=ArrRandom(n,1,99); Print('B:'); b.Println; var x:=a.Zip(b,(p,q)->p*q); Print('X:'); x.Println; Writeln('min(X)=',x.Min) end.
2. "Школьный вариант" (так учат в школе, чтобы жизнь медом не казалась, но может быть, что учителя сами не понимают современные технологии программирования):
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016 const n=10; var a,b,x:array[1..n] of integer; i,min:integer; begin Randomize; Write('A: '); for i:=1 to n do begin a[i]:=Random(99)+1; Write(a[i],' ') end; Writeln; Write('B: '); for i:=1 to n do begin b[i]:=Random(99)+1; Write(b[i],' ') end; Writeln; Write('X: '); min:=100*100; // больше максимального for i:=1 to n do begin x[i]:=a[i]*b[i]; Write(x[i],' '); if min>x[i] then min:=x[i] end; Writeln; Writeln('min(X)=',min) end.
Возобновляемая, или регенеративная, «зелёная», энергия — энергия из энергетических ресурсов, которые являются возобновляемыми, или неисчерпаемыми, по человеческим масштабам