Даны два массива 20 однозначных чисел. В первом из них записано количество мячей, забитых футбольной командой в игре, во втором – количество пропущенных мячей в этой же игре.
а) Определить количество выигрышей, проигрышей и ничьих данной команды.
б) Общее число очков, набранных командой (за выигрыш дается 3 очка, за ничью – 1, за проигрыш - 0 ).
Подскажите в чем у меня ошибка в этой здаче?
var
Form1: TForm1;
massiv: array[1..10] of integer;
massiv1: array [1..10]of integer;
massiv3: array [1..10]of integer;
i,n,m,k,ob:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
massiv[i]:=strtoint(InputBox('Элементы массива', 'Введите '+inttostr(i)+
' элемент массива','0'));
//ввод элементов массива
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
massiv1[i]:=strtoint(InputBox('Элементы массива', 'Введите '+inttostr(i)+
' элемент массива','0'));
//ввод элементов массива
end;
procedure TForm1.Button3Click(Sender: TObject);
var i,n,m,k,ob:integer;
begin
for i:=1 to 10 do
massiv3[i]:=massiv[i]-massiv1[i];
begin
if massiv3[i]>0 then k:=massiv3[i]+1;
if massiv3[i]<0 then m:=massiv3[i]+1;
if massiv3[i]=0 then n:=massiv3[i]+1;
ob:=(k*3)+n;
begin
edit1.Text:=inttostr(k);
edit2.Text:=inttostr(m);
edit3.Text:=inttostr(n);
edit4.Text:=inttostr(ob);
end;
end;
end;
end.
|