ПАСКАЛЬ. Пусть А и В – множества, базовый тип которых интервал 0...50. Множество А – подинтервал базового типа с произвольно заданными границами, В – множество из 10 произвольных неравных элементов. Подсчитать среднее арифметическое элементов множества В , не входящих в А, затем число совпадающих элементов этих множеств.
1) подчеркивание ошибок, подчеркивание грамматики, ручная проверка ошибок и грамматики, управления словарем, изменение языка, установка новых словарей, отключение проверка орфографии, автокоррекция.
2)добавление словаря, правописание, автозамена,
3)Автозамена-ищет часто встречающиеся ошибки набора и правописания в вашем документе и автоматически исправляет их, как только они появляются. К примеру, вы можете указать, что слово венигрет всегда нужно заменять на винегрет.
Автотекст-позволяет определить и сохранить часто используемые текстовые блоки и/или графические объекты и вставлять их в документ по мере надобности. Например, вы можете указать в качестве элемента автотекста свое полное имя и адрес и вставлять его в документ с всего лишь нескольких клавиш.
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;
writeln('Matrix A:'); //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10);
write(a[i,j]:4);
end;
end;
writeln;
writeln('Matrix C:'); //аналогично
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
c[i,j]:=random(10);
write(c[i,j]:4);
end;
end;
for i:=1 to n do //сохраняем матрицу C для транспонации
for j:=1 to n do
ma[i,j]:=c[i,j];
writeln;
writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
c[i,j]:=ma[j,i];
write(c[i,j]:4);
end;
end;
writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
write(ma[i,j]:4);
end;
end;
end.