pascal编程题目班级竞选班长,共有3个候选人,输入参加选举的人数及每个人选举的内容,输出三个候选人最终的得票数及无效选票数.如:输入:151 2 3 2 2 3 3 5 61 1 2 2 3 1输出:Candidate1:4Candidate2:5Ca

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/26 14:04:48
pascal编程题目班级竞选班长,共有3个候选人,输入参加选举的人数及每个人选举的内容,输出三个候选人最终的得票数及无效选票数.如:输入:15123223356112231输出:Candidate1:

pascal编程题目班级竞选班长,共有3个候选人,输入参加选举的人数及每个人选举的内容,输出三个候选人最终的得票数及无效选票数.如:输入:151 2 3 2 2 3 3 5 61 1 2 2 3 1输出:Candidate1:4Candidate2:5Ca
pascal编程题目
班级竞选班长,共有3个候选人,输入参加选举的人数及每个人选举的内容,输出三个候选人最终的得票数及无效选票数.
如:
输入:15
1 2 3 2 2 3 3 5 61 1 2 2 3 1
输出:
Candidate1:4
Candidate2:5
Candidate3:4
Onuser:2

pascal编程题目班级竞选班长,共有3个候选人,输入参加选举的人数及每个人选举的内容,输出三个候选人最终的得票数及无效选票数.如:输入:151 2 3 2 2 3 3 5 61 1 2 2 3 1输出:Candidate1:4Candidate2:5Ca
var
a:array[1..3] of longint;
x,n,i,t:longint;
begin
readln(n);
for i:=1 to n do begin
read(x);
if x in[1..3] then inc(a[x])
else inc(t);
end;
writeln('Candidate1:',a[1]);
writeln('Candidate2:',a[2]);
writeln('Candidate3:',a[3]);
writeln('Onuser:',t);
end.

自创,望采纳.