31.01.2023, 14:59
|
|
Активный
|
|
Регистрация: 06.06.2010
Сообщения: 340
Версия Delphi: 11.3
Репутация: 429
|
|
Цитата:
Сообщение от Grecodont
Вопрос 2. Как высчитывать min элемент иассива и max элемент массива в функции?
Вопрос 3. Как сделвть так, чтобы после нажатия кнопки, мне выдавало макс. Элемент массива или мин. Элемент массива, кол-во массивов и их сумма?
|
Код:
uses
Math;
//Минимальный и максимальный элемент массива, и сумма всех элементов
//Edit и Label просто для наглядности содержимого массива
procedure TForm1.Button1Click(Sender: TObject);
var
A: array[0..9] of Integer;
I, Min, Max, Sum: Integer;
S: String;
begin
S := '';
Edit1.Clear;
for I := Low(A) to High(A) do
begin
A[i] := Random(1000);
S := S + IntToStr(A[i]) + ', ';
end;
Edit1.Text := S;
Max := MaxIntValue(A);
Min := MinIntValue(A);
Sum := SumInt(A);
Label1.Caption := Format('Min: %d; Max: %d; Sum: %d', [Min, Max, Sum]);
end;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|