c++ В сказочной стране Лукоморье в целях экономии топлива все грузы перевозят на Змей Горыночах, имеющих свой бортовой номер от 1 до 100. Количество голов Змея(случ. число от 1 до 1000) определяет его грузоподъемность. В архиве К. Бессмертного заведено личное дело на каждого Змея Горыноча с информацией о количестве голов и бортовом номере Однажды на Калиновом мосту грузовым Змеем Горыночем была сбита гражданка Баба Яга. Нарушитель скрылся, но свидетели показали, что число голов Змея кратно его бортовому номеру Д. Никитичу следователю по ДТП выяснить нарушителя.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

uses graphABC;

var n,da,db,x1,y1,x2,y2:integer;

begin

repeat

write('Введите количество точек от 2 до 50 n=');

readln(n);

until n in [2..50];

clearwindow;

da:=(windowwidth-100)div (n-1);//расстояние между точками ввверху

db:=da div 4;//то же внизу

if odd(n) then//если n нечетное

begin

 x1:=windowwidth div 2-da*(n div 2);

 x2:=windowwidth div 2-db*(n div 2);

end

else //если четное

begin

 x1:=windowwidth div 2-da*(n div 2-1)- da div 2;

 x2:=windowwidth div 2-db*(n div 2-1)- db div 2;

end ;

y1:=50;

y2:=windowheight-50;

for var i:=0 to n-1 do

line(x1+i*da,y1,x2+i*db,y2);

line(x1,y1,x1+(n-1)*da,y1);

line(x2,y2,x2+(n-1)*db,y2);

end.

Объяснение:

Если не видно на скриншоте

Program v1;

var a:array[0..30]of integer;            

i,min,max,n,t:integer;

begin

write('Введите размерность матрицы: '); readln(n);                

randomize;

for i:=1 to n do a[i]:=random(100)-50;                            

write('Значение матрицы: ');                                      

for i:=1 to n do write(a[i]:5); writeln;    

   max := 1;

 min := 1;

 t:=0;

 for i := 1 to n do

 begin

   if a[i] > a[max] then

     max := i

   else

     if a[i] < a[min] then

       min := i;

 end;

 for i := 1 to n do

   t:=a[min]*a[max];

 WriteLn('Среднее арифметическое: ', (a[max] + a[min])/2 ,' ' ,'Произведение максимального элемента на минимальный равно:', t);

end.