Program MinDist;
{$APPTYPE CONSOLE}
uses sysutils;
const
k = 100;
ax = 10;
ay = -2;
var
T: array[1..k, 1..2] of integer;
r, rmin, i, n: integer;
begin
write('Введите число точек на плоскости: ');
readln(n);
rmin := 32767;
Randomize;
writeln('Исходные данные:');
for i := 1 to n do
begin
T[i, 1] := Random(51) - 25;
T[i, 2] := Random(51) - 25;
r := sqr(T[i, 1] - ax) + sqr(T[i, 2] - ay);
if rmin > r then rmin := r;
writeln('(', T[i, 1], ',', T[i, 2], ')')
end;
writeln(#13#10, 'Минимальное расстояние от А(', ax, ',', ay, ') равно: ', sqrt(rmin))
end.
Если М это переменная,хранящая номер максимального элемента, то фрагмент программы получится следующий
Ваше условие(if X[k]>X[M] then )
M = k
Пояснение:
если X[k](текущий) больше, чем Х[M](максимального элемента) то
М = к: присвоить М значение К, т.е. назначить Х[k] максимальным.
Ответ: г.
А) Выдает строку, которую задал.
Б) получается бессмысленный цикл, так как условие цикла "ПОКА" противоречит условию "ЕСЛИ". Цикл не будет выполняться.
В) выдаёт ту же строку.
Г) сортирует в порядке возрастания.
Решение смотри во вложении при вводе" 8, 2, 5".
Подчинение. если бы мы описывали это с помощью множеств, то "учебник математики" ∈ множеству "книга"
Var a: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do readln(a[i]);
for i := 1 to 10 do
if (a[i] > 0) then writeln('[', i, '] => ', a[i]);
<span>end.
Такое подойдёт?)</span>