Н. 7 - 2) D
N.8 - 2)
N.9 - 1)D
Пусть p(x,y) - нужная нам точка
x,y вычисляются как среднее арифметическое соответствующих координат данных домов, например x=(1+2+3+4+7+8)/6; округлив, получаем x=4
аналогично, y=3.
p(4,3)
===== PascalABC.NET =====
procedure ЛевыйСдвигK(var a: array of integer; k: integer);
begin
var m := a.Length;
k := k mod m;
if k > 0 then
a := a[k:] + a[:k]
end;
procedure ПравыйСдвигK(var a: array of integer; k: integer);
begin
var m := a.Length;
k := k mod m;
if k > 0 then
a := a[m - k:] + a[:m - k]
end;
procedure ЛевыйСдвиг(var a: array of integer) :=
a := a[1:] + a[0:1];
procedure ПравыйСдвиг(var a: array of integer);
begin
var m := a.Length - 1;
a := a[m:] + a[:m];
end;
begin
// тест
var a := ArrRandom(8, 10, 99);
a.Println;
ЛевыйСдвиг(a);
a.Println;
ПравыйСдвиг(a);
a.Println;
ЛевыйСдвигK(a, 3);
a.Println;
ПравыйСдвигK(a, 3);
a.Println;
end.
#include <iostream>
using namespace std;
int main() {
int n=10,k=0;
int a[n];
srand(time(NULL));
cout<<"array:"<<endl;
for (int i=0; i<n; i++)
{
a[i]=rand() % 6;
cout<<a[i]<<" ";
}
cout<<endl;
for (int i=0; i<n-1; i++)
if (a[i]==a[i+1]) {
k++;
if (k==1) cout << "Есть: ";
cout<<a[i]<<" ";
}
if (k==0) cout << "нет";
system("pause");
return(0);
}
Пример:
<span>array:
0 5 5 0 2 5 2 4 0 5
Есть: 5 </span>
Var a,b:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if b=0
then begin
write('min(',a,',',b,')=');
if a<b then writeln(a) else writeln(b);
end
else if b<0
then begin
write('max(',a,',',b,')=');
if a>b then writeln(a) else writeln(b);
end
else begin
a:=a*0.8;
b:=b*0.8;
writeln('a = ',a,' b = ',b);
end;
end.
Пример:
a = 5
b = -8
max(5,-8)=5