// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
Writeln('Ср.знач.=',
ArrRandom(ReadInteger('n='),1,50).Println.Average)
end.
<u><em>Тестовое решение:</em></u>
n= 15
46 24 35 34 48 18 34 7 12 5 22 14 2 4 43
Ср.знач.=23.2
Маша не говорит по-французски (она не играет на скрипке). Она же не знает итальянского. Т. е. она знает либо английский, либо немецкий.
Оля - виалончелистка - не знает итальянского, английского и французского - т. е. говорит на немецком.
Лена не играет на арфе, но, т. к. рояль и виалончель уже заняты, то играть она может только на скрипке, и говорит она по-французски.
Соответственно Валя играет на арфе и говорит по-итальянски. А Маша говорит по-английски.
Итого:
Маша - Рояль, Английский
Оля - Виалончель, Немецкий
Лена - Скрипка, Французский
Валя - Арфа, Итальянский
Выдаст произведение следующих чисел
2*5*2*4*2*3*2*2*2*1=3840
Program dfgdf;
var
m,o,r,f:real;
begin
writeln('оценку по математике введите');
readln(m);
if (m>=1) and (m<=5) then
begin
writeln('оценку по русскому введите');
readln(r);
if (r>=1) and (r<=5) then
begin
writeln('оценку по физике введите');
readln(f);
if (f>=1) and (f<=5) then
begin
o:=(m+f+r+5)/4;
writeln('средняя оценка = ',o);
end
else
begin
writeln('не корректный ввод!!!');
end;
end
else
writeln('не корректный ввод!!!')
end
else
writeln('не корректный ввод!!!')
<span>end.</span>
