Const dlin = 100; var b:array[1..dlin,1..2] of integer; i,j,x:integer; begin writeln('Исходный массив:'); for i:=1 to dlin do begin b[i,1]:=random(800)+100; write(b[i,1],' '); b[i,2]:=b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10; end; writeln;
for i:=1 to dlin-1 do for j:=dlin-1 downto i do if b[j,2]>b[j+1,2] then begin x:=b[j,2]; b[j,2]:=b[j+1,2]; b[j+1,2]:=x; x:=b[j,1]; b[j,1]:=b[j+1,1]; b[j+1,1]:=x; end;
writeln('Отсортированный массив:'); for i:=1 to dlin do write(b[i,1],' ');
#include <iostream> #include <algorithm> using namespace std; int main() { int n, A; // n -- количество чисел в массиве, A -- число из условия. cin >> n >> A; int x[n]; for (int i = 0; i < n; i++) cin >> x[i]; // считываем все элементы в массив. double sum = 0, coun = 0; // sum -- сумма чисел, подходящих по условию, coun -- количество чисел, подходящих по условию. for (int i = 0; i < n; i++) if (x[i] < A) { sum += x[i]; coun++; } cout << sum / coun; return 0; }
var y,v,a:real;
begin
a:=exp(-c)+c;
v:=(a+c)/a*c;
y:=cos(v*pi/180)*exp(1/3*ln(1+sqr(sin((v+a)*pi/180;
writeln ('A = ',a:0:4);
writeln ('V = ',v:0:4);
writeln ('Y = ',y:0:4);
end.