Найти среднее арифметическое максимального и минимального элементов массива А

@vados07 · Регистрация: 06.12.2012

Author24 — интернет-сервис помощи студентам

Delphi

const n=7;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
StringGrid1.ColCount:=n;
   Randomize;
   for i:=1 to n do
   StringGrid1.Cells[i-1,0]:=IntToStr(random(7));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
type mas=array[1..n+1] of integer;
var a:mas;i:integer; max,min,sr:real;
begin
for i:=1 to n do
a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
begin
max:=a[1];
for i:=1 to n do
if  max> a[i]  then
begin max:=i;
end;
end;
begin
min:=a[1];
for i:=1 to n do
if  min< a[i]  then
begin min:=i;
end;
end;
sr:=(max+min)/2;
Label1.Caption:= FloatToStr(sr);
end;
end.

Добавлено через 34 секунды
программа работает, но считает не правильно, подскажите что не так?

@FIL · 24.12.2012, 17:49

Delphi

max:=a[1];
min:=a[1];
 for i:=2 to n do
 begin
   if max< a[i] then max:=a[i];
   if min> a[i] then min:=a[i];
 end;

	24.12.2012, 17:49

Опции темы