C++ опишите, используя структуру записи, почтовую сортировку (город, улица, дом, квартира, кому, ценность, откуда отправили). составьте программу, определяющую: 1) сколько посылок отправлено в пределах одного города (адресат и отправитель ); 2) сколько и куда (список городов) отправлено посылок ценностью выше 1000 рублей. 3) есть ли адреса, куда отправлено более 1 посылки, если есть, то сколько и кому.
K:array[1..2,1..13] of integer;
i,j,ind,x,y:integer;
MAX:real;
function RAST(x1,x2,y1,y2:integer):real;
begin
RAST:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
MAX:=-2*sqr(-10-1);
randomize;
writeln('Исходные точки:');
for j:=1 to 13 do
begin
writeln('Точка № ',j,', с координатами(X,Y)');
for i:=1 to 2 do
begin
K[i,j]:=random(110) - 10;
write(K[i,j],' ');
end;
writeln;
end;
for i:=1 to 13 do
if RAST(0,K[1,i],0,K[2,i])>MAX
then
begin
MAX:=RAST(0,K[1,i],0,K[2,i]);
x:=K[1,i];
y:=K[2,i];
ind:=i;
end;
writeln('Номер точки: ',ind,' Координаты: ',x,' ; ',y);
end.
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15