Работа 3.9 Упр.16 ГДЗ Семакин 10 класс (Информатика)

1) если все оценки 5, назначается повышенная стипендия;
2) если оценки 4 и 5, назначается обычная стипендия;
3) если есть оценка 3, стипендия не назначается.
В результате работы программы получить список группы с оценками и средним баллом каждого студента и два списка фамилий (назначенных на повышенную и обычную стипендию).

Для каждого студента вводим 5 оценок. Затем проверяем:

• если все 5 оценок равны $$5$$, студент получает повышенную стипендию;
• если все оценки лежат в пределах $$4$$ и $$5$$, студент получает обычную стипендию;
• если среди оценок есть хотя бы одна $$3$$, стипендия не назначается.

Кроме этого, для каждого студента нужно вывести список оценок и средний балл.

var
  a, b, c: array [1..5] of integer;
  i, k, s: integer;
  sr: real;
begin
  writeln(‘студент 1:’);
  s := 0;
  for i := 1 to 5 do
  begin
    write(‘оценка ‘, i, ‘= ‘);
    readln(a[i]);
    s := s + a[i];
  end;
  sr := s / 5;
  writeln(‘оценки: ‘, a[1], ‘ ‘, a[2], ‘ ‘, a[3], ‘ ‘, a[4], ‘ ‘, a[5]);
  writeln(‘средний балл: ‘, sr:0:2);
  k := 0;
  for i := 1 to 5 do
    if a[i] = 5 then k := k + 1;
  if k = 5 then
    writeln(‘студент 1 — повышенная стипендия’)
  else
  begin
    k := 0;
    for i := 1 to 5 do
      if (a[i] <= 5) and (a[i] > 3) then k := k + 1;
    if k = 5 then writeln(‘студент 1 — обычная стипендия’)
    else writeln(‘студент 1 — нету стипендии’);
  end;

  writeln(‘студент 2:’);
  s := 0;
  for i := 1 to 5 do
  begin
    write(‘оценка ‘, i, ‘= ‘);
    readln(b[i]);
    s := s + b[i];
  end;
  sr := s / 5;
  writeln(‘оценки: ‘, b[1], ‘ ‘, b[2], ‘ ‘, b[3], ‘ ‘, b[4], ‘ ‘, b[5]);
  writeln(‘средний балл: ‘, sr:0:2);
  k := 0;
  for i := 1 to 5 do
    if b[i] = 5 then k := k + 1;
  if k = 5 then
    writeln(‘студент 2 — повышенная стипендия’)
  else
  begin
    k := 0;
    for i := 1 to 5 do
      if (b[i] <= 5) and (b[i] > 3) then k := k + 1;
    if k = 5 then writeln(‘студент 2 — обычная стипендия’)
    else writeln(‘студент 2 — нету стипендии’);
  end;

  writeln(‘студент 3:’);
  s := 0;
  for i := 1 to 5 do
  begin
    write(‘оценка ‘, i, ‘= ‘);
    readln(c[i]);
    s := s + c[i];
  end;
  sr := s / 5;
  writeln(‘оценки: ‘, c[1], ‘ ‘, c[2], ‘ ‘, c[3], ‘ ‘, c[4], ‘ ‘, c[5]);
  writeln(‘средний балл: ‘, sr:0:2);
  k := 0;
  for i := 1 to 5 do
    if c[i] = 5 then k := k + 1;
  if k = 5 then
    writeln(‘студент 3 — повышенная стипендия’)
  else
  begin
    k := 0;
    for i := 1 to 5 do
      if (c[i] <= 5) and (c[i] > 3) then k := k + 1;
    if k = 5 then writeln(‘студент 3 — обычная стипендия’)
    else writeln(‘студент 3 — нету стипендии’);
  end;
end.

Ответ

Программа выводит оценки и средний балл каждого студента, а также определяет вид стипендии по заданным правилам: повышенная, обычная или отсутствие стипендии.