Developing.ru

Помогите решить пожалуйста, ну не как не получается программу составить на бейсике.

Дан массив, состоящий из 20 элементов. Найти все тройки элементов массива, сумма которых равна К и подсчитать число таких троек.
Результат распечатать в виде:
Массив:
Число троек =

Код на паскаль:

Код: Выделить всё

var
  A: array[1..20] of Integer;
  i, j, n, K, Sum: Integer;

begin
  Write('Sum: ');
  ReadLn(Sum);
  K := 0;
  WriteLn('Array: ');
  Randomize;
  for i := 1 to 20 do
  begin
    A[i] := Random(100);
    Write(A[i], ' ');
    for j := 1 to 20 do
      if (j <> i) then
        for n := 1 to 20 do
          if (n <> j) then
            if A[i] + A[j] + A[n] = Sum then
              K := K + 1;
  end;
  WriteLn;
  WriteLn('K = ', K);
  ReadLn;
end.

СПАСИБО!!!

Developing.ru

Задача на одномерный массив

Задача на одномерный массив

Re: Задача на одномерный массив

Re: Задача на одномерный массив