Const
K = 13;
Var
A:array[1..K] of integer;
i,n:integer;
Sr,d:real;
Begin
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
Sr:=Sr+A[i];
End;
WriteLn;
Sr:=Sr/K;
n:=1;
d:=abs(Sr-A[n]);
For i:= 2 to K do
Begin
if abs(A[i]-Sr)<d then
Begin
n:=i;
d:=abs(Sr-A[n]);
End;
End;
WriteLn('Sr = ',Sr);
WriteLn('Номер ближайшего к среднему арифметическому: ',n);
End.
2.
var x,y:real;
Begin
write('Vvedite chislo x: ');
readln(x);
writeln('y1= ',power(x,8));
writeln('y2= ',power(x,10));
writeln('y3= ',power(x,15));
writeln('y4= ',power(x,19));
readln;
End.
3.
var
a1,a2,b1,b2:integer; // a1,a2 - первая дробь, b1,b2 - вторая
Begin
write('Vvedite pervuy drob: ');
readln(a1,a2);
write('Vvedite vtoryy drob: ');
readln(b1,b2);
writeln('Chislitel= ',a1+b1);
writeln('Znamenatel= ',a2+b2);
readln;
End.
var
i,j,s,n,max:integer;
a:array[1..5,1..5]of integer;
begin
for i:=1 to 5 do
begin
s:=0;
for j:=1 to 5 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
s:=s+a[i,j];
end;
if s>max then
begin
n:=i;
max:=s;
end;
writeln;
end;
writeln;
write('Строка ',n,': ');
for j:=1 to 5 do
write(a[n,j],' ');
<span>end.</span>
Если в двоичном коде то
1101100
Ответ записать в формате writeln(e:4:1).
тогда после запятой будет 1 символ