// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=ArrRandomReal(28,0.001,2); a.Println; Writeln(NewLine,'P=',a.Where(x->x<1.0).Aggregate(1.0,(p,x)->p*x)) end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 procedure MatPrint(a:array[,] of integer); begin for var i:=0 to Length(a,0)-1 do begin for var j:=0 to Length(a,1)-1 do Write(a[i,j]:4); Writeln end end;
procedure MatReplaceOdd(a:array[,] of integer; value:integer); begin for var i:=0 to Length(a,0)-1 do for var j:=0 to Length(a,1)-1 do if a[i,j].IsOdd then a[i,j]:=value end;
begin var n,m:integer; Write('Задайте число строк и столбцов матрицы: '); Read(n,m); var a:=MatrixRandom(n,m,-99,99); Writeln('Исходный массив'); MatPrint(a); MatReplaceOdd(a,26); Writeln('Результирующий массив'); MatPrint(a) end.
uses graphABC;
var i,x,y:integer;
Begin
SetWindowSize(700,150);
FloodFill(1,1,rgb(255,255,0));
x:=0;
y:=110;
for i:=1 to 5 do
begin
SetPenWidth(3);
SetPenColor(rgb(0,35,195));
SetBrushColor(rgb(255,0,0));
Line(x,y,x+70,y-70);
Line(x+70,y-70,x+140,y);
Pie(x+70,y-35,35,220,320);
Pie(x+140,y-35,35,40,140);
SetPenColor(rgb(0,181,5));
SetBrushColor(rgb(0,181,5));
Circle(x+70,y-15,7);
Circle(x+140,y-55,7);
x:=x+140
end
end.
Объяснение:
картинка