задача Вводя в цикле по 4 оценки

@Григорьева · Регистрация: 05.01.2012

Вводя в цикле по 4 оценки, полученные студентами группы в летнюю сессию, определить число неуспевающих студентов.

помогите решить пожалуйста

@Puporev · 05.01.2012, 19:37

Pascal

uses crt;
var n,i,j,a,k,kd:integer;
begin
clrscr;
write('Количество студентов n=');
readln(n);
writeln('Введите по 4 оценки каждого студента от 2 до 5');
k:=0;
for i:=1 to n do
 begin
  writeln('Студент ',i);
  kd:=0;
  for j:=1 to 4 do
   begin
    repeat
    write(' - оценка ',j,'=');
    readln(a);
    until a in [2..5];
    if a=2 then kd:=1;
   end;
  if kd=1 then k:=k+1;
 end;
write('Количество неуспевающих=',k);
readln
end.

@Григорьева · 05.01.2012, 19:50 **[ТС]**

Большое спасибо)))))))))

@Григорьева 1 / 1 / 0 Регистрация: 05.01.2012 Сообщений: 10
		1
	задача Вводя в цикле по 4 оценки 05.01.2012, 18:54. Показов 2240. Ответов 2 Метки нет (Все метки) Вводя в цикле по 4 оценки, полученные студентами группы в летнюю сессию, определить число неуспевающих студентов. помогите решить пожалуйста 0

@Григорьева 1 / 1 / 0 Регистрация: 05.01.2012 Сообщений: 10
	05.01.2012, 19:50 [ТС]	3
	Большое спасибо))))))))) 0

Опции темы

задача Вводя в цикле по 4 оценки

Решение