[klik09]

Всем привет! Народ срочно помогите мне с 1 заданием:

Вычислить среднее арифметическое, наименьшее значение среди положительных элементов и произведение отрицательных в массиве D(n). n<=25. Вывести массив, среднее арифметическое, наименьшее значение и произведение.

[lmikle]

Сообщение от klik09

Всем привет! Народ срочно помогите мне с 1 заданием:

Вычислить среднее арифметическое, наименьшее значение среди положительных элементов и произведение отрицательных в массиве D(n). n<=25. Вывести массив, среднее арифметическое, наименьшее значение и произведение.

Ну а сам что? Это же элементарно.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

var   I  : Integer;   A : Array [1..25] Of Integer;   M, C, S, P : Integer; begin   // Генерируем массив случайных чисел -50..50   For I := 1 To 25 Do A[i] := Random(101) - 50;     // Инициализируем счетчики   M := A[1];   C := 0;   S := 0;   P := 1;     // Считаем.   For I := 1 To 25 Do     Begin       If A[i] >= 0         Then // положительное            Begin               Inc(C);               S := S + A[i];               If A[i] < M Then M := A[i];            End         Else // отрицательное           P := P * A[i];     End;     // Вывод   WriteLn('Min = ',M);   If C = 0 Then WriteLn('Avg = N/A') Else WriteLn('Avg = ',S/C);   WriteLn('Mul = ',P); end;

[klik09]

Что то не понял с выводом, можешь сделать проще. Что бы массив выводился в Memo, а среднее арифметическое,произведение и сумма в отдельные Edit'ы?

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

Замените строки:

Код:

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

For I := 1 To 25 Do A[i] := Random(101) - 50; на For I := 1 To 25 Do begin A[i] := Random(101) - 50; Memo1.Lines.Add(IntToStr(A[i])); end;   WriteLn('Min = ',M); на Edit1.Text := 'Min = ' + IntToStr(M);   If C = 0 Then WriteLn('Avg = N/A') Else WriteLn('Avg = ',S/C); на If C = 0 Then Edit2.Text := 'Avg = N/A' Else Edit2.Text := 'Avg = ' + FloatToStr(S/C);   WriteLn('Mul = ',P); на Edit3.Text := 'Mul = ' + IntToStr(P)

[klik09]

Что то я проверяю программу, а она мне выдает совсем не то решение=(
Среднее арифметическое не находит, наименьшее значение среди положительных вообще нет, только произведения отрицательных элементов массива правильно выдает.
Еще не могу понять что делает функция Inc(C)

[klik09]

Вообщем разобрался во всем, исправил все, кроме 1. У меня почему то все равно за место наименьшего положительного выдает первый элемент массива.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var   I  : Integer;   A : Array [1..10] Of Integer;   M, C, S, P : Integer; begin       For I := 1 To 10 Do begin     A[i] := Random(56) - 25;      Memo1.Lines.Add(IntToStr(A[i]));   end;        M := A[1];   C := 0;   S := 0;   P := 1;         For I := 1 To 10 Do     Begin     Inc(C);      S := S + A[i];       If A[i] >= 0         Then            begin           If A[i] < M Then M := A[i];            end         Else           P := P * A[i];     End;       Edit1.Text := 'Min = ' + IntToStr(M);  Edit2.Text:='Avg = '+ FloatToStr(S/C);  Edit3.Text := 'Mul = ' + IntToStr(P);     end;   end.

[klik09]

Все исправил сам, всем спасибо!!!