Question

В ДВУХ МАССИВАХ ХРАНЯТСЯ ОЦЕНКИ ЗА 5 ЭКЗАМЕНОВ ДВУХ СТУДЕНТОВ.
НАЙТИ РАЗНИЦУ МЕЖДУ Их СРЕДНИМИ БАЛЛАМИ (1-10)







Отдам все баллы,а их всего 68,срочно!!!!

Answer 1

Ответ:

program z1;

const n=5;

var s1,s2:array [1..n] of integer;

i,o1,o2:integer;

begin

write('1 студент: ');

for i:=1 to n do

begin

s1[i]:=random(5)+1;

o1:=o1+s1[i];

write(s1[i]:3)

end;

writeln;

write('2 студент: ');

for i:=1 to n do

begin

s2[i]:=random(5)+1;

o2:=o2+s2[i];

write(s2[i]:3)

end;

writeln;

writeln('Разница между средними баллами: ',abs(o1/n-o2/n))

end.

Объяснение:

Задаются оценки и считается сумма баллов первого студента

Задаются оценки и считается сумма баллов второго студента

Берётся модуль разницы их средних баллов