Для каждой игры определить словесный результат игры (выигрыш, проигрыш или ничья)

@MaksimKotov25 · Регистрация: 03.06.2017

Помогите решить задачу
В одном массиве записано количество мячей, забитых футбольной командой в каждой из n игр, в другом – количество пропущенных мячей в этой же игре. Для каждой игры определить словесный результат игры (выигрыш, проигрыш или ничья).
Вот мой исходник , но он вообще не правильный

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
a:array of integer;
i,n:integer;
begin
for i:=1 to n do
begin
  a[i]:=random(5)+1;
Listbox1.Items.Add(intToStr(a[i]));
end;
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var
b:array of integer;
i,n:integer;
begin
for i:=1 to n do
begin
  b[i]:=random(5)+1;
  Listbox2.Items.Add(intToStr(b[i]));

@AHBAR · 07.06.2017, 08:34

Сообщение от MaksimKotov25

Для каждой игры определить словесный результат игры (выигрыш, проигрыш или ничья).

Delphi

// a[i] количество забитых мячей
// b[i] количество прошущенных мячей
for i := 1 to n do Begin
if a[i]=b[i] then ... // ничья 
else if a[i] > b[i] then ... // выигрыш 
else ... // проигрыш 
End;

Опции темы