9 клас. Знаходження максимального і мінімального значень в одновимірному масиві

поставити =;

змінити напис max на min

змінити знак > на <;

правильної відповіді немає

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real;

begin

for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

for i := 2 to 10 do If a[i] > max Then max := a[i];

Label1.Caption := FloatToStr (max) + ' — найбільше значення’;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i: integer; max: real;

begin

for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

max := a[1];

for i := 2 to 10 do If a[i] > max Then max := a[i];

Label1.Caption := FloatToStr (max) + ' — найбільше значення’;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i: integer; min: real;

begin

for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

min:= a[1];

for i := 2 to 10 do If a[i] > min Then min := a[i];

Label1.Caption := FloatToStr (min) + ' — найбільше значення’;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..5] of real; i: integer; m: real;

begin

for i := 1 to 5 do a[i] := StrToFloat(Memo1.Lines[i-1]);

m:= a[2];

for i := 2 to 5 do If a[i] > mThen m := a[i];

Label1.Caption := FloatToStr (m) + ' — найбільше значення’;

end;

min := а[1];

for і := 2 to 10 do If a[i] > min Then min := a[i];

min := а[1];

for і := 2 to 10 do If a[i] <min Then min := a[i];

min := а[1];

for і := 2 to 10 do If a[i] ><min Then min := a[i];

min := а[1];

for і := 2 to 10 do If a[i] = min Then min := a[i];