Курсовая работа: Объектно-ориентированная разработка программ
b[i] := 1 + Random(99); // заполняем массив случайными числами
end;
Label7.Visible:=False;
Label8.Visible:=False;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
with StringGrid1 do
for i:=1 to size do
begin
Cells[i-1,0]:=IntToStr(a[i]);
Cells[i-1,1]:=IntToStr(b[i]);
end;
max_a :=1;
max_b :=1;
for i:=2 to size do
begin
if a[i] > a[max_a] then max_a := i;
if b[i] > b[max_b] then max_b := i;
end;
Label7.Visible:=True;
Label7.Caption:='МаксимальныйэлементмассиваА :'+IntToStr(a[max_a])
+#13+'Номер элемента в массиве А :'+ IntToStr(max_a)
+#13+'Максимальный элемент массива В :'+IntToStr(b[max_b])
+#13+'Номер элемента в массиве В :'+ IntToStr(max_b);
buf:= a[max_a];
a[max_a]:= b[max_b];
b[max_b]:= buf;
with StringGrid2 do