Определить количество абитуриентов, сдавших вступительные экзамены только на "отлично"

@Фурия · Регистрация: 26.04.2017

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

Добрый вечер! Появилась проблема с одной задачкой. Кому не сложно, прошу помочь.
-\\-\\-\\-\\-\\-
Результаты вступительных экзаменов представлены в виде списка из N строк, в каждой строке которого записаны фамилия студента и отметки по каждому из M экзаменов. Определить количество абитуриентов, сдавших вступительные экзамены только на "отлично".
-\\-\\-\\-\\-\\-
Попрошу написать программу на уровне школьника, что бы было понятно.
Есть своя программа, но она с ошибкой (какой знаю, но как исправить - не знаю).

Pascal

program dz;
var k,n,j,d,r,i:integer;a:string; b:array[1..256,1..256] of string; c:array[1..256,1..256] of integer;
  begin
  writeln('введите количество студентов');
  readln(n);
  writeln('введите количество оценок');
  readln(r);
  writeln('введите учеников и их оценки');
  for j:=1 to n do begin
  readln(a);
  b[1][j]:=a;
  end;
    for j:=1 to n do begin
    for i:=1 to length(b[1][j]) do begin
    if b[i][j]='2' then c[i][j]:=2;
    if b[i][j]='3' then c[i][j]:=3;
    if b[i][j]='4' then c[i][j]:=4;
    if b[i][j]='5' then c[i][j]:=5; end;end;
  for j:=1 to n do
  for i:=1 to length(b[1][j]) do begin
  k:=k+c[i][j];
  if k mod r=5 then d:=d+1; end;
  writeln('количество отличников=',d);
  end.

Заранее спасибо.

@VladimirD · 27.04.2017, 05:14

Фурия, так работает

Pascal

program dz;
var k,n,j,d,r,i:integer;a:string; b:array[1..256,1..256] of string; c:array[1..256,1..256] of integer;
  begin
  writeln('введите количество студентов');
  readln(n);
  writeln('введите количество оценок');
  readln(r);
  writeln('введите учеников и их оценки');
  for j:=1 to n do begin
  readln(a);
  b[1][j]:=a;
  end;
    for j:=1 to n do begin
    for i:=1 to length(b[1][j]) do begin
    if b[i][j]='2' then c[i][j]:=2;
    if b[i][j]='3' then c[i][j]:=3;
    if b[i][j]='4' then c[i][j]:=4;
    if b[i][j]='5' then c[i][j]:=5; end;end;
  k:=0;  
  for j:=1 to n do
  d:=0;
  for i:=1 to length(b[1][j]) do begin
  k:=k+c[i][j];
  if k mod r=5 then d:=d+1; end;
  writeln('количество отличников=',d);
  end.

Добавлено через 30 минут
работает но не верно

Добавлено через 46 минут
Фурия, проверяй

Pascal

program dz;
var k,n,j,d,r,i,ci:integer;a,bi:string; b:array[1..256,1..256] of string; c:array[1..256,1..256] of integer;
  begin
  writeln('введите количество студентов');
  readln(n);
  writeln('введите количество оценок');
  readln(r);
  writeln('введите учеников и их оценки');
  
  for j:=1 to n do begin
  readln(a);
  b[1][j]:=a;
  end;  
  for j:=1 to n do begin
  ci:=1; bi:=b[1][j];
  for i:=1 to length(b[1][j]) do begin
    if bi[i]='2' then begin c[ci][j]:=2;ci:=ci+1;end;
    if bi[i]='3' then begin c[ci][j]:=3;ci:=ci+1;end;
    if bi[i]='4' then begin c[ci][j]:=4;ci:=ci+1;end;
    if bi[i]='5' then begin c[ci][j]:=5;ci:=ci+1;end;  
    end;end;
  d:=0; 
  for j:=1 to n do begin
   k:=0;
   for i:=1 to r do k:=k+c[i][j];    
   if k div r=5 then d:=d+1; 
  end;
  writeln('количество отличников=',d);
  end.

@Фурия · 27.04.2017, 05:23 **[ТС]**

VladimirD, Спасибо большое! Программа работает!

@Фурия 0 / 0 / 0 Регистрация: 26.04.2017 Сообщений: 15
	27.04.2017, 05:23 [ТС]	3
	VladimirD, Спасибо большое! Программа работает! 0

Опции темы