Определить число студентов, не имеющих "двоек", и средний экзаменационный балл каждого студента.

29.06.2009, 11:44. **Показов** 2685. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Ребят, помогите пожалуйста.
Одну задачку сделал вторую не получается, на форуме похожих не нашел..после завтра сдавать.

2.Даны оценки N студентов, полученные ими на 4 экзаменах. Определить число студентов, не имеющих "двоек", и средний экзаменационный балл каждого студента.

@mamedovvms · 29.06.2009, 12:28

Pascal

uses crt;
var a:array[1..100,1..4] of integer;
    i,j,n,k:integer;
    srbal:real;
begin
 clrscr;
 writeln('Vvedite chislo studentov');
 readln(n);
 for i:=1 to n do
  for j:=1 to 4 do
  begin
   write('Vvedite ',j,'-yu ocenku ' ,i,'-go studenta= ');
   readln(a[i,j]);
  end;
 writeln('Sredniy bal studentov ');
for i:=1 to n do
 begin
  srbal:=0;
  for j:=1 to 4 do
  srbal:=srbal+a[i,j];
  writeln('Sredniy bal ',i,'-go studenta',srbal/4:5:2);
 end;
k:=0;
for i:=1 to n do
 if (a[i,1]>2)and(a[i,2]>2)and(a[i,3]>2)and(a[i,4]>2) then
   k:=k+1;
writeln('Net dvoek u ',k,' studentov');
readln;
end.

29.06.2009, 12:29

Спасибо огромное!!!!)))

biops
		1
	Определить число студентов, не имеющих "двоек", и средний экзаменационный балл каждого студента. 29.06.2009, 11:44. Показов 2685. Ответов 2 Метки нет (Все метки) Ребят, помогите пожалуйста. Одну задачку сделал вторую не получается, на форуме похожих не нашел..после завтра сдавать. 2.Даны оценки N студентов, полученные ими на 4 экзаменах. Определить число студентов, не имеющих "двоек", и средний экзаменационный балл каждого студента.

biops
	29.06.2009, 12:29	3
	Спасибо огромное!!!!)))

Определить число студентов, не имеющих "двоек", и средний экзаменационный балл каждого студента.

Решение