mgpk-politex-zadania

1
unit Unit2;
2

3
interface
4

5
uses
6
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
7
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
8

9
type
10
  TForm2 = class(TForm)
11
    Label1: TLabel;
12
    Edit1: TEdit;
13
    Edit2: TEdit;
14
    Label2: TLabel;
15
    Button1: TButton;
16
    Edit3: TEdit;
17
    Edit4: TEdit;
18
    Edit5: TEdit;
19
    Edit6: TEdit;
20
    Edit7: TEdit;
21
    Edit8: TEdit;
22
    Edit9: TEdit;
23
    Edit10: TEdit;
24
    Edit11: TEdit;
25
    Edit12: TEdit;
26
    Edit13: TEdit;
27
    Edit14: TEdit;
28
    Edit15: TEdit;
29
    Edit16: TEdit;
30
    Edit17: TEdit;
31
    Edit18: TEdit;
32
    Edit19: TEdit;
33
    Edit20: TEdit;
34
    Edit21: TEdit;
35
    Edit22: TEdit;
36
    procedure Button1Click(Sender: TObject);
37
  private
38
    { Private declarations }
39
  public
40
    { Public declarations }
41
  end;
42

43
var
44
  Form2: TForm2;
45

46
implementation
47

48
{$R *.dfm}
49

50
procedure TForm2.Button1Click(Sender: TObject);
51
var A: array [0..99] of integer;
52
    i,n: integer;
53
    sum,s: byte;
54
begin
55
  n:=StrToInt(Edit1.Text);
56
  for i:=0 to n-1 do
57
   A[i]:=StrToInt(Edit2.Text);
58
   A[i]:=StrToInt(Edit11.Text);
59
   A[i]:=StrToInt(Edit12.Text);
60
   A[i]:=StrToInt(Edit13.Text);
61
   A[i]:=StrToInt(Edit14.Text);
62
   A[i]:=StrToInt(Edit4.Text);
63
   A[i]:=StrToInt(Edit5.Text);
64
   A[i]:=StrToInt(Edit6.Text);
65
   A[i]:=StrToInt(Edit7.Text);
66
   A[i]:=StrToInt(Edit8.Text);
67
   A[i]:=StrToInt(Edit9.Text);
68
   A[i]:=StrToInt(Edit10.Text);
69
   A[i]:=StrToInt(Edit15.Text);
70
   A[i]:=StrToInt(Edit16.Text);
71
   A[i]:=StrToInt(Edit17.Text);
72
   A[i]:=StrToInt(Edit18.Text);
73
   A[i]:=StrToInt(Edit19.Text);
74
   A[i]:=StrToInt(Edit20.Text);
75
   A[i]:=StrToInt(Edit21.Text);
76
   A[i]:=StrToInt(Edit22.Text);
77
   
78
  sum:=0;
79
  s:=0;
80
 for i:=0 to n-1 do begin
81
  if A[i]>0 then
82
   begin
83
    s:=s+1;
84
    if s>sum then sum:=s;
85
   end
86
  else s:=0;
87
 end;
88
 Edit3.Text:=(IntToStr(sum)); {È êàêîãî õóÿ îíî íå ðîáèò ñ ìèíóñîâûìè ÷èñëàìè? âûâîäÿ áëÿäñêèé íîëü- â êîíñîëüíîé âåðñèè íîðìàëüíî ñ ýòèì áûëî}
89
end;
90

91
end.
92