Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов

@волкер · Регистрация: 10.12.2016

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

вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших более двх экзаменов

@Joy · 10.02.2017, 04:37

сколько всего экзаменов?

@волкер · 10.02.2017, 20:24 **[ТС]**

три экзамена физика информатика математика

@волкер · 11.02.2017, 21:36 **[ТС]**

три экзамена физика химия и математика

@bormant · 11.02.2017, 23:53

Pascal

type
  TStudent = record
    fio: String[63];
    male: Boolean;
    exam: array [1..3] of Integer;
  end;
var
  st: array [1..10] of Students;
  i, j, k, n: Integer;
begin
  {...}
  for i:=1 to n do with st[i] do
    if male then begin
      k:=0;
      for j:=Low(exam) to High(exam) do
        if exam[i]<3 then Inc(k);
      if k>2 then WriteLn(fio);
    end;
end.

@волкер · 12.02.2017, 19:16 **[ТС]**

спасибо

@волкер 0 / 0 / 0 Регистрация: 10.12.2016 Сообщений: 15
		1
	Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов 09.02.2017, 20:38. Показов 2917. Ответов 5 Метки нет (Все метки) вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших более двх экзаменов 0

@Joy 2385 / 1297 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	10.02.2017, 04:37	2
	сколько всего экзаменов? 0

@волкер 0 / 0 / 0 Регистрация: 10.12.2016 Сообщений: 15
	10.02.2017, 20:24 [ТС]	3
	три экзамена физика информатика математика 0

@волкер 0 / 0 / 0 Регистрация: 10.12.2016 Сообщений: 15
	11.02.2017, 21:36 [ТС]	4
	три экзамена физика химия и математика 0

@волкер 0 / 0 / 0 Регистрация: 10.12.2016 Сообщений: 15
	12.02.2017, 19:16 [ТС]	6
	спасибо 0

Опции темы

Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов

Решение