В массиве записаны результаты 20 игр футбольной команды. Определить количество выигрышей, количество ничьих и количество проигрышей данной команды - Turbo Pascal
Формулировка задачи:
В массиве записаны результаты 20 игр футбольной команды(если игра окончилась выигрышем данной команды,то записано число 3, проигрышем-2,если игра окончилась вничью-1.)Определить количество выигрышей,количество ничьих и количество проигрышей данной команды.
Решение задачи: «В массиве записаны результаты 20 игр футбольной команды. Определить количество выигрышей, количество ничьих и количество проигрышей данной команды»
textual
Листинг программы
Const n=20; Var x: Array[1..100] of Integer; i,w,l,d: Integer; BEGIN For i:=1 to n do begin Readln(x[i]); If x[i]=1 Then Inc(d); If x[i]=2 Then Inc(l); If x[i]=3 Then Inc(w); end; Writeln('Кол-во выигрышей: ',w); Writeln('Кол-во проигрышей: ',l); Writeln('Кол-во ничьих: ',d); Readln END.