Знаковая система - набор символов определенного типа. Любая знаковая система строится на основании символов определенного типа. В одной знаковой системе одни и те же правила работы со всеми символами. Каждая знаковая система имеет конечный набор символов, который называют алфавитом. Количество символов в одной знаковой системе называют мощностью знаковой системы. Русский язык - это естественная знаковая система. Имеет алфавит, который состоит из букв, буквы дают возможность формировать слова - основу русского языка. Мощность русского алфавита - 33 буквы. Правила чтения слов применяются для всех букв. Написание одних и тех же букв в разных словах одинаково. Десятичная система счисления - формальная знаковая система. Это математическая знаковая система. Алфавит состоит из набора цифр: 0, 1, 2, 3, 4 и т.д. Мощность алфавита - 10 цифр. Правила сложения, вычитания, умножения, деления, возведения в степень и других математических действий используется для любых чисел, состоящих из цифр десятичной системы.
1) const n=?; //Сюда поставить любое нужное n Var a:array[1..n] of real; i,x,k:integer; s:real; Begin for i:=1 to n do begin readln(x); a[i]:=x; end; s:=0; k:=0; for i:=1 to n do begin s:=s+a[i]; k:=k+1; end; s:=s/k; for i:=1 to n do if a[i]<s then write(a[i],', '); s:=s/k; for i:=1 to n do if a[i]<s then write(a[i],', '); readln; End.
2) Const n=?; Var a:array[1..n] of integer; i,max,min:integer; Begin for i:=1 to n do begin readln(x); a[i]:=x; end; min:=a[1]; max:=a[1]; for i:=1 to n do if (i mod 2)=0 then if a[i]>max then max:=a[i]; for i:=1 to n do if (i mod 2)<>0 then if a[i]<min then min:=a[i]; writeln('max=',max); writeln('min=',min); readln; End.
Русский язык - это естественная знаковая система. Имеет алфавит, который состоит из букв, буквы дают возможность формировать слова - основу русского языка. Мощность русского алфавита - 33 буквы. Правила чтения слов применяются для всех букв. Написание одних и тех же букв в разных словах одинаково.
Десятичная система счисления - формальная знаковая система. Это математическая знаковая система. Алфавит состоит из набора цифр: 0, 1, 2, 3, 4 и т.д. Мощность алфавита - 10 цифр. Правила сложения, вычитания, умножения, деления, возведения в степень и других математических действий используется для любых чисел, состоящих из цифр десятичной системы.
const n=?; //Сюда поставить любое нужное n
Var a:array[1..n] of real;
i,x,k:integer; s:real;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
s:=0;
k:=0;
for i:=1 to n do
begin
s:=s+a[i];
k:=k+1;
end;
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
readln;
End.
2)
Const n=?;
Var a:array[1..n] of integer;
i,max,min:integer;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
min:=a[1];
max:=a[1];
for i:=1 to n do
if (i mod 2)=0 then
if a[i]>max then
max:=a[i];
for i:=1 to n do
if (i mod 2)<>0 then
if a[i]<min then
min:=a[i];
writeln('max=',max);
writeln('min=',min);
readln;
End.