На рисунках какого художника впервые встретились роботы? А) Микеланджело б) Леонардо да Винчи в) Сальвадор - id1674706820200827 от olyakokos 27.08.2020 06:53

Question

Информатика: На рисунках какого художника впервые встретились роботы? А) Микеланджело б) Леонардо да Винчи в) Сальвадор Дали г) Пабло Пикассо 5. В какой стране был выставлен первый робот? а) Италия б) Америка в) Япония г) Россия 6. Что не может сделать робот Тони? а) кулинария б) смех в) уборка дома г) полировка мебели 7. Что Азимов думает о роботах? а) Они вредят людям б) Они приносят пользу человеку в) Прогнозирует их пользу и вред одновременно г) Они думают, что им нужно искусственное мышление 8. Как будут

olyakokos · Accepted Answer

Type
mas=array[,]of integer;
var
  i,n:integer;
  a:mas;
  b:array[1..4]of integer;
begin
write('Сколько точек: ');
readln(n);
setlength(a,3,n+1);
for i:=1 to n do
begin
write('Введите координаты точки: ');
readln(a[1,i],a[2,i]);
end;
for i:=1 to n do
begin
if a[2,i]=0 then
begin
if b[1]=0 then b[1]:=i else if a[1,i]<a[1,b[1]] then b[1]:=i;
if b[2]=0 then b[2]:=i else if a[1,i]>a[1,b[2]] then b[2]:=i;
end;
if a[2,i]>0 then
if b[3]=0 then b[3]:=i else if a[2,i]>a[2,b[3]] then b[3]:=i;
if a[2,i]<0 then
if b[4]=0 then b[4]:=i else if a[2,i]<a[2,b[4]] then b[4]:=i;
end;
writeln('Координаты вершин четырехугольника с наибольшей площадью:');
for i:=1 to 4 do write('(',a[1,b[i]],';',a[2,b[i]],') ')
end.

MOGZ ответил