Предмет: Информатика,
автор: kiruxakosinskij14
ЗАПОВНІТЬ ПРОПУЩЕНІ ФРАГМЕНТИ: procedure TForm1.Button1Click(Sender: TObject); var: array [] of real; i,n: integer; max,min: ; begin n: Memo1.Lines.Count; for i:=0 to n-1 do a[i]: StrToFloat( ; max:=_ D); min:__________; for i:=_ if a[i]>_ if a[i]< Edit1. :-FloatToStr(______); Edit2. to n-1 do then then min:=______; else (min);
Ответы
Автор ответа:
0
Відповідь:
procedure TForm1.Button1Click(Sender: TObject);
var a: array [] of real;
i,n: integer;
max,min: real;
begin
n:= Memo1.Lines.Count;
for i:=0 to n-1 do
a[i]:= StrToFloat(Memo1.Lines[i]);
max:= a[0];
min:= a[0];
for i:= 1 to n-1 do
if a[i]>max then max:= a[i];
else if a[i]<min then min:= a[i];
Edit1.Text:= FloatToStr(max);
Edit2.Text:= FloatToStr(min);
end;
Пояснення:
kiruxakosinskij14:
спасибо
незачто!
Интересные вопросы
Предмет: Другие предметы,
автор: fiksaytop228
Предмет: Українська література,
автор: stadyschool1027
Предмет: Право,
автор: procakzhanna
Предмет: Русский язык,
автор: Бомба1625
Предмет: География,
автор: Аноним