Курсовая работа: Объектно-ориентированная разработка программ

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;

Label8.Visible:=True;

Label8.Caption:='МаксимальныйэлементмассиваА :'+IntToStr(a[max_a])

+#13+'Номер элемента в массиве А :'+ IntToStr(max_a)

+#13+'Максимальный элемент массива В :'+IntToStr(b[max_b])

+#13+'Номер элемента в массиве В :'+ IntToStr(max_b);

end;

procedure TForm3.FormClose(Sender: TObject; var CloseAction: TCloseAction);

begin

Form1.Show;

end;

initialization

{$I parray.lrs}

end.

unit colorshape;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,