В массиве записаны результаты 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.

Оцени полезность:

12   голосов , оценка 3.667 из 5
Похожие ответы