Класс, состоящий из N учащихся, сдает экзамен. Определите среднее значение оценок <4> и <5>

@Mihail_Prog · Регистрация: 07.02.2018

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

Класс, состоящий из N учащихся , сдает экзамен. Определите среднее значение оценок<4> и <5>. Значение оценок записаны построчно в файле input.txt, первой строкой задано количество учеников результат записать в файл output.txt

@Hitoku · 09.02.2018, 00:59

Pascal

var
  fin, fout: text;
  n, i, sum, count, x: integer;
 
begin
  assign(fin, 'input.txt');
  reset(fin);
  readln(fin, n);
  for i := 1 to n do begin
    readln(fin, x);
    if (x > 3) then begin
      sum := sum + x;
      inc(count);
    end;
  end;
  close(fin);
  assign(fout, 'output.txt');
  rewrite(fout);
  write(fout, sum / count);
  close(fout);
end.

input.txt

Кликните здесь для просмотра всего текста

10
2
3
4
5
2
3
4
5
3
4

output.txt

Кликните здесь для просмотра всего текста

4.4

@bormant · 09.02.2018, 17:30

Hitoku,
Попридираюсь чутка....

На случай наличия более 5 баллов стоило подстраховаться, в условии такого ограничения нет, а системы оценок -- есть

Pascal

11	if x in [4..5] then begin

или, если транслятор почему-то не допускает предложенную выше запись:

Pascal

11	if (x>=4) and (x<=5) then begin

Добавлено через 5 минут
Программа ничего не выводит оператору, поэтому можно пользоваться файловыми переменными input и output (дело вкуса):

Pascal

  Assign(input, 'input.txt');
  Reset(input);
...
    ReadLn(x);
...
  Close(input);
  Assign(output, 'output.txt');
  Rewrite(output);
  WriteLn(sum/count);
  Close(output);

На ноль в count неплохо проверить:

Pascal

1
2
3

  if Count = 0
  then WriteLn(fout, 0)
  else WriteLn(fout, sum/count);

@Mihail_Prog 0 / 0 / 0 Регистрация: 07.02.2018 Сообщений: 19
		1
	Класс, состоящий из N учащихся, сдает экзамен. Определите среднее значение оценок <4> и <5> 08.02.2018, 16:44. Показов 1836. Ответов 2 Метки нет (Все метки) Класс, состоящий из N учащихся , сдает экзамен. Определите среднее значение оценок<4> и <5>. Значение оценок записаны построчно в файле input.txt, первой строкой задано количество учеников результат записать в файл output.txt 0

	09.02.2018, 17:30

Класс, состоящий из N учащихся, сдает экзамен. Определите среднее значение оценок <4> и <5>

Решение