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

@toxa08116 · Регистрация: 09.11.2011

6. Даны два массива из 20 однозначных чисел. В первом из них записано количество мячей, забитых футбольной командой в игре, во ром — количество пропущенных мячей в этой же игре. Для каждой проведенной игры напечатать словесный результат: "выигрыш", "ничья'' или "проигрыш".(работа с 2, 3 массивами)

@CodeR · 29.06.2012, 11:22

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

6. Даны два массива из 20 однозначных чисел. В первом из них записано количество мячей, забитых футбольной командой в игре, во ром — количество пропущенных мячей в этой же игре. Для каждой проведенной игры напечатать словесный результат: "выигрыш", "ничья'' или "проигрыш".(работа с 2, 3 массивами)

Pascal

Const n=20;
Var A,B:array[1..n] of integer;
    i:integer;
Begin
    writeln('Массив из кол-ва забитых мячей: ');
    For i:=1 to n do
     Begin
      A[i]:=random(11);
      write(A[i]:3);
     End;
    writeln;
    writeln('Массив из кол-ва пропущенных мячей: ');
    For i:=1 to n do
     Begin
      B[i]:=random(11);
      write(B[i]:3);
     End;
    writeln;
    For i:=1 to n do
     if A[i]>B[i] then writeln(i,': Выйгрыш') 
      else if A[i]<B[i] then writeln(i,': Проигрыш') 
       else writeln(i,': Ничья');
    readln;
End.

@toxa08116 0 / 0 / 0 Регистрация: 09.11.2011 Сообщений: 61
		1
	Для каждой проведенной игры напечатать словесный результат: "выигрыш", "ничья'' или "проигрыш" 29.06.2012, 08:21. Показов 1473. Ответов 1 Метки нет (Все метки) 6. Даны два массива из 20 однозначных чисел. В первом из них записано количество мячей, забитых футбольной командой в игре, во ром — количество пропущенных мячей в этой же игре. Для каждой проведенной игры напечатать словесный результат: "выигрыш", "ничья'' или "проигрыш".(работа с 2, 3 массивами) 0

Опции темы

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

Решение