Var a:array[1..100] of real;
i,k,n:integer;
sr,pr,s:real;
begin
write('Введите кол-во учеников в классе: '); readln(n);
writeln('Введите баллы учеников: ');
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
s:=s+a[i];
sr:=s/n; pr:=sr/10;
for i:=1 to n do
if (a[i]<sr+pr) and (a[i]>sr-pr) then
inc(k);
writeln('Кол-во баллов, отклоняющиеся от срзнач. не более чем на 10%: ',k);
end.
a:=x+y/x+1-xy-12/34+x вопрос в том, в чем собственно проблема.? просто берете переменную и присваеваете ей значение .уравнение будет точно такоеже.
1-Формализация
2-Моделирование
3-Реляционная
4-Компьютерная
5-Ключ
6-Информационная
7-Таблица
8-Запись
9-Поле
10-Математическая
Ответ:
а = 25
b - не определено
Объяснение:
а = 5 + 10 * 2 = 5 + 20 = 25
операции с переменной b не указаны
<em>Устройство ввода - клавиатура</em>