[skvot]

1.Определить имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел.
2.Разделить массив D(18) на 2 части,поместив в первую элементы больше среднего арифметического их суммы,а во вторую меньше.(MEMO).
Ребят решите пожалуйста.Заранее спасибо!

[Страдалецъ]

Если объясните, что такое взаимно противоположных чисел?

[Nyctos Kasignete]

1. Пусть числа берутся из полей Edit.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button1Click(Sender: TObject); var   a, b, c: Integer;   sum: Integer; begin   a := StrToInt(Edit1.Text);   b := StrToInt(Edit2.Text);   c := StrToInt(Edit3.Text);   sum := a + b + c;   if (sum = a) or (sum = b) or (sum = c) then     ShowMessage('Opposite numbers present!')   else ShowMessage('Opposite numbers do not present!'); end;

2. Если правильно поняла, нужно поместить результат в Memo? Пусть в первую строчку помещаются числа меньше среднего, в нижнюю — больше среднего...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Button2Click(Sender: TObject); const   numbers: array[0..17] of Integer = (0, 5, 45, 6, 5, 545, 455, 10545, 46,                                       11, 448, 887, 548, 1000, 5455, 8, 584, 454); var   Average: Real;   i: Byte; begin   Average := 0;   for i := 0 to 17 do Average := Average + numbers[i];   Average := Average / 18;     Memo1.Lines.Clear;   Memo1.Lines.Add(''); Memo1.Lines.Add('');   for i := 0 to 17 do     if numbers[i] < Average then       Memo1.Lines.Strings[0] := Memo1.Lines.Strings[0] + IntToStr(numbers[i]) + '; '     else       Memo1.Lines.Strings[1] := Memo1.Lines.Strings[1] + IntToStr(numbers[i]) + '; '; end;