Указать пары чисел - Pascal ABC
Формулировка задачи:
Решение задачи: «Указать пары чисел»
const max=100; var a:array[1..max] of integer; n,m,k,i,j:integer; begin randomize; repeat write('Количество чисел от 2 до ',max,' n='); readln(n); until n in [2..max]; writeln('Последовательность'); for i:=1 to n do begin a[i]:=random(50); write(a[i]:4); end; writeln; write('Введите целое число m='); readln(m); writeln('Пары чисел в сумме дающие ',m); k:=0; for i:=1 to n-1 do for j:=i+1 to n do if a[i]+a[j]=m then begin k:=1; writeln(a[i]:4,a[j]:4); end; if k=0 then write('Таких чисел нет') end.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
const max = 100;
var a: array[1..max] of integer;
n, m, k, i, j: integer;
Сначала происходит инициализация генератора случайных чисел. Затем пользователю предлагается ввести количество чисел от 2 до max, которое будет вписываться в массив a. После этого выводится сообщение Последовательность
, и для каждого числа i в массиве a выводится его значение.
Затем пользователю предлагается ввести целое число m. После этого выводится сообщение Пары чисел в сумме дающие m
, и начинается цикл, который проверяет все возможные комбинации чисел в массиве a на соответствие условию a[i] + a[j] = m. Если такая комбинация найдена, то переменной k присваивается значение 1, и выводятся значения найденных чисел. Если после прохода по всем комбинациям значение k остается равным 0, то выводится сообщение Таких чисел нет
.
Код не использует вложенные списки.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д