Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program pr1;
- var
- i, j, k, n: integer;
- m, count, Aj, Ai, rand: integer;
- number_arr: array [1..30] of integer;
- temp_arr: array [1..2] of integer;
- pair_arr: array [1..40] of array [1..2] of integer;
- bool: boolean;
- begin
- // Подключение функции рандомизации
- randomize;
- // Генерация массива со случайными числами
- for i := 1 to 30 do
- begin
- rand := random(1, 10);
- number_arr[i] := rand;
- write(rand, ', ');
- end;
- writeln();
- write('Введите число: ');
- readln(m);
- count := 1;
- n := 1;
- // Основной цикл
- for i:=1 to 30 do
- begin
- // Внутренний цикл
- for j:=2 to 30 do
- begin
- Ai := number_arr[i];
- Aj := number_arr[j];
- bool := false;
- // Проверка главного условия
- if (Ai + Aj = m) then
- begin
- // Добавление чисел во временный массив
- if Ai > Aj then
- begin
- temp_arr[1] := Ai;
- temp_arr[2] := Aj;
- end
- else
- begin
- temp_arr[1] := Aj;
- temp_arr[2] := Ai;
- end;
- // Проверка наличия полученных
- // чисел в массиве пар
- // Если массив пустой -
- // Добавление чисел в массив пар
- if (n = 1) then
- begin
- pair_arr[1][1] := temp_arr[1];
- pair_arr[1][2] := temp_arr[2];
- count := count + 1;
- n := n + 1;
- end
- // Если массив не пустой -
- // проверка наличия чисел в массиве
- // пар
- else
- begin
- // Если такой пары нет - добавление в массив
- k := 1;
- while bool do
- begin
- if not ((pair_arr[k][1] = temp_arr[1])
- and (pair_arr[k][2] = temp_arr[2])) then
- begin
- write(pair_arr);
- count := count + 1;
- k := k + 1;
- pair_arr[k+1][1] := temp_arr[1];
- pair_arr[k+1][2] := temp_arr[2];
- bool := true
- end;
- end;
- end;
- end;
- end;
- end;
- write('Количество пар: ', count+1)
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement