ПАСКАЛЬ Дан целочисленный массив из 15 элементов. Элементы
массива задаются случайным образом в интервале [10 50].
Выполнить сортировку массива методом выбора (любым из и определить есть ли в массиве равные элементы.
Вывести на экран номера равных элементов и сами эти
элементы.
CLS
RANDOMIZE TIMER
INPUT "N = ", N
DIM D%(N)
PRINT "D("; N; "):";
K = 0
FOR i = 1 TO N
D%(i) = RND * (2 * N + 1) - N
PRINT " "; D%(i);
NEXT i
PRINT
INPUT "T = ", T
FOR i = 1 TO N
IF D%(i) = T THEN
K = K + 1
END IF
NEXT i
PRINT "K = "; K
END
2)
CLS
RANDOMIZE TIMER
DIM D%(14), C%(14)
PRINT "D(14):";
K = 0
FOR i = 1 TO 14
D%(i) = RND * 41 - 20
PRINT " "; D%(i);
IF D%(i) < 7 THEN
K = K + 1
C%(K) = D%(i)
END IF
NEXT i
PRINT
PRINT "C("; K; "):";
FOR i = 1 TO K
PRINT " "; C%(i);
NEXT i
END