Имеются сведения об учениках 9 класса, сдававших переводные экзамены по пяти предметам

@ZaRinKa97 · Регистрация: 26.04.2014

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

Имеются сведения об учениках 9 класса, сдававших переводные экзамены по пяти предметам: фамилия, затем название предмета и оценка за экзамен. Требуется: Составить список "второгодников", то есть тех учеников, у которых за экзамен получено больше двух двоек.

Новичок · 22.06.2014, 20:21

Pascal

type pupil=record
     surname:String;
     marks:array[1..5]of 1..12;
     end;
var a:array[1..30] of pupil;
i,j,n,k,s:Integer;
begin
s:=0;
Write('Количество учеников:');
Readln(n);
for i:=1 to n do
 begin
  Writeln('Введите сведения о ',i,'-м ученике:');
  Write('Фамилия:');
  Readln(a[i].surname);
  Writeln('Оценки за пять экзаменов (после каждой оценки нажимайте Enter):');
  for j:=1 to 5 do Readln(a[i].marks[j]);  
 end;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to 5 do 
   if a[i].marks[j]=2 then inc(k); 
  if k>=2 then inc(s);
 end;
Writeln('Количество учеников, которые останутся на второй год:',s);
Readln;
end.

Не по теме:

Как в тему - мы недавно(я в девятом, перейду теперь в десятый класс) сдали эти жуткие экзамены!Их было ровно пять. Но задача не совсем правильная:на второй год к сожалению никого не оставляют... :)Да и оценки всем поставили не меньше 6(по 12-бальной системе).

@ZaRinKa97 1 / 1 / 0 Регистрация: 26.04.2014 Сообщений: 121
		1
	Имеются сведения об учениках 9 класса, сдававших переводные экзамены по пяти предметам 22.06.2014, 14:18. Показов 1475. Ответов 1 Метки нет (Все метки) Имеются сведения об учениках 9 класса, сдававших переводные экзамены по пяти предметам: фамилия, затем название предмета и оценка за экзамен. Требуется: Составить список "второгодников", то есть тех учеников, у которых за экзамен получено больше двух двоек. 0

Опции темы

Имеются сведения об учениках 9 класса, сдававших переводные экзамены по пяти предметам

Решение