Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями вида P /Q (где Р — целое число, Q — натуральное число).
Вариант 1 В раздел реализации включить подпрограмму вычисления наибольшего общего делителя и на ее основе подпрограмму сокращения дробей. Помогите написать в паскале
Var eval: array[1..35] of byte; i, good: integer; sr: real;
begin good := 0;sr := 0; for i := 1 to 35 do begin write(i, '.) ');readln(eval[i]); sr := sr + eval[i]; if eval[i] = 5 then inc(good); end; sr := sr / 35; writeln('Всего пятерок: ', good); writeln('Средний бал: ', sr:0:2); end.