Program n1;
Uses CRT;
Const n=5;
Var a: array[1..n,1..n] of integer;
i,j: integer; k,p: real;
begin
ClrScr;
randomize;
p:=1;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:= random(10);
write(a[i,j]:2);
If (i=j)or(n-i+1=j) then p:=p*a[i,j];
end;
writeln;
end;
k:=sqrt(p);
Writeln(k:4:4);
readln
end.
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
begin
var a:=ReadArrInteger('Введите элементы массива->',ReadInteger('Введите размер массива->'));
Println('Количество минимальных->',a.Where(t->t=a.min).Count);
end.
Пример:
Введите размер массива-> 10
Введите элементы массива-> 1 2 3 4 5 6 7 1 1 1
Количество минимальных-> 4
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,c,x):=ReadReal3('Введите a,c,x:');
var y:=(2*a-a/23)/Sqrt(1+a/4);
var z:=(2*c-4*y+Abs(a-y))/(Exp(x)+2*a*y*a);
Writeln('Y=',y,', Z=',z)
end.
<u>Пример</u>
Введите a,c,x: 3.5 -0.167 3.11
Y=5.00094509026456, Z=-0.129959221453275
