Известны результаты экзамена 15 студентов одной группы по информатике. Определить,...

Question

Известны результаты экзамена 15 студентов одной группы по информатике. Определить, сколько студентов сдали экзамен на 4 и сколько на 5. (PASCAL) СРОЧНО!!!!!!!!!!!!

Comments

Т.е. на входе у нас 15 чисел, я правильно понимаю? И если да, то как они вводятся - в одной строке или в столбик?

---

да,можно в столбик)

Answer 1

var a,i,k,m:integer;

BEGIN

k:=0;

m:=0;

for i:=1 to 15 do begin

readln(a);

if (a=4) then k:=k+1;

if (a=5) then m:=m+1;

end;

writeln(k,' студентов сдали экзамен на "4".');

writeln(m,' студентов сдали экзамен на "5".');

end.

Comments

Спасибо от души !!!! Самый лучший