Получить матрицу следующим образом n=5 1 2 3 4 5 2 3 4 5 1 3 4 5 1 2 4 5 1 2 3 5 1 2 3 4 (паскал) - id1009299520220709 от 1207malinap0c23p 09.07.2022 22:00

Question

Информатика: Получить матрицу следующим образом n=5 1 2 3 4 5 2 3 4 5 1 3 4 5 1 2 4 5 1 2 3 5 1 2 3 4 (паскал)​

1207malinap0c23p · Accepted Answer

Dim A(100) As Integer, Odin As Boolean
Dim k As Integer , i As Integer
Randomize
For i = 1 To 100
A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100
Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию
Next i
Print "Повторяющиеся элементы"
For i = 1 To 100
For k = i+1 To 100
If A(i) = A(k) Then Print A(i) & CHR(9);
Next k
Next i
Print "Не повторяющиеся элементы"
For i = 1 To 100
Odin = True
For k = i+1 To 100
If A(i) = A(k) Then Odin = False
Next k
If Odin = True Then Print A(i) & CHR(9);
Next i
End

Получить матрицу следующим образомn=51 2 3 4 52 3 4 5 13 4 5 1 24 5 1 2 35 1 2 3 4(паскал)​

MOGZ ответил

Получить матрицу следующим образом
n=5
1 2 3 4 5
2 3 4 5 1
3 4 5 1 2
4 5 1 2 3
5 1 2 3 4

(паскал)