СРОЧНО Как решить задачу в Паскаль про голосование. К примеру в выборах участвуют Иванов...

Question

СРОЧНО
Как решить задачу в Паскаль про голосование.
К примеру в выборах участвуют Иванов и Петров. Нужно принять ответы(люди садятся один за другим за компьютер и голосуют), подсчитать и вывести кто победил.

Comments

В выборах участвует именно 2 кандидата?

---

И сколько людей голосует?

---

2 кандидата и 15 людей голосуют

Answer 1

На PascalABC:
var a,i,p,n:integer;
begin
writeln ('Кандидаты:');
writeln ('1. Петров');
writeln ('2. Иванов');
for n:= 1 to 15 do
begin
writeln ('Введите номер кандидата: ');
readln (a);
if a=1 then p:=p+1 else i:=i+1;
end;
if p>i then writeln ('Петров победил со счётом ',p,':',i) else
writeln ('Иванов победил со счётом ',i,':',p);
end.