Регистрация
50АлисА05
15.04.2020 23:06
Информатика
Есть ответ 👍

Тус датчигинин сипаттамасы

161
418
Посмотреть ответы 2

Ответы на вопрос:

029292299292
029292299292
4,6(5 оценок)

ответь скажите за 5 минут не пишите комментарий

KateKeta
KateKeta
4,4(30 оценок)
Var   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.        

Популярно: Информатика