Const n=13;
var a:array[1..n] of integer;
i,c:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
c:=a[4]; a[4]:=a[9]; a[9]:=c;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
<span>Массив A:
11 25 20 0 7 28 27 26 23 25 12 24 20
11 25 20 23 7 28 27 26 0 25 12 24 20</span>
— словарь в компьютере или другом электронном устройстве.
Позволяет быстро найти нужное слово, часто с учётом морфологии и возможностью поиска словосочетаний (примеров употребления), а также с возможностью изменения направления перевода (например, англо-русский или русско-английский).
Внутренне устроен как база данных со словарными статьями.
Электронные словари не стоит путать с компьютерными словарями, предназначенными не для пользователей, а для компьютерных программ, работающих с текстами на естественных языках того кто создал его это морзе
Найти лишнее слово текст,число,график,бумага;магистраль,вестибюль,лазурь, бандерольозимь,цитадель,фланель,панцирьвинчестер,диске
Инна1 [406]
число
лазурь
Панцирь (м.р.)
<span>джойстик, графопостроитель, дискета - остальное все относится к предметам комп-ра</span>
program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
i,n,k,p:byte;
begin clrscr; Randomize;
writeln('n:');readln(n);
writeln('a:');readln(p);
for i:=1 to n do
begin
write('элемент ',i,' : ');
readln(a[i]);
end;
for i:=1 to n do
write(a[i],' ');
k:=0;
for i:=1 to n do
begin
if a[i] > p then inc(k);
end;
writeln('количество элементов массива, которые больше заданного числа',p,' : ',k);
end.
