Дан фрагмент таблицы «Зарплата сотрудников». A B 1 Фамилия Зарплата, руб. 2 Иванов 11946 3 Петров 13422,11 - id1128432020200806 от vladimirshmele1 06.08.2020 17:24

Question

Информатика: Дан фрагмент таблицы «Зарплата сотрудников». A B 1 Фамилия Зарплата, руб. 2 Иванов 11946 3 Петров 13422,11 4 Кошкина 5574 5 Владимирова 16533,04 6 Поляков 31500 7 Николаев 12482 8 Короленко 13887,01 В программе MS Excel использована функция MIN. И записана следующим образом: =MIN(B2:B8) Полученный ответ: . В программе MS Excel использована функция MAX. И записана следующим образом: =MAX(B2:B8) Полученный ответ: .​

vladimirshmele1 · Accepted Answer

Type point = record        x,y: real;      end; var vc: array [1..4] of point;     bg,nd: point;     i,j,k,m: integer; begin  writeln( координаты точек - через пробел );   for i:=1 to 4 do   begin     write( точка   ,i,     );     readln(vc[i].x,vc[i].y);   end; { сравнение векторов }     m:=0;     for i:=2 to 4 do     begin       bg.x:=vc[i].x-vc[1].x;       bg.y:=vc[i].y-vc[1].y;       j:=1;  k:=1;       while ((j=1) or (j=i)) do j:=j+1;       while ((k=1) or (k=i) or (k=j)) do k:=k+1;       nd.x:=vc[j].x-vc[k].x;...

MOGZ ответил