когда я нажимала клавиши "caps lock" или "num lock" на экране ноута высвечивался на секунду индикатор с замочком, а сейчас он куда-то исчез, и чтобы

максимальное значение заменить минимальным а минимальное максимальным...

выдает ошибку там где random(30);
проверьте пожалуйста...

Program A1;
var a:array[1..30] of integer;
amax,amin,i,k1,n,s:integer;
begin
writeln('введите n элементов массива');
readln (n);
for i:=1 to n do
random(30);
writeln('введённый массив имеет вид');
write (a[i], ' ');
writeln;
amax:=a[1]; k1:=1;
for i:=2 to n do
if a[i]>amax then
amax:=a[i];
amin:=a[1];
for i:=2 to n do
if a[i]<amin then
amin:=a[i];
writeln('полученный массив имеет вид');
amax:=amin;
amin:=amax;
for i:=1 to n do
writeln(a[i],' ');
end.

карточки с буквами он убрал в ящик стола. Перед приходом из школы его брата Васи Петя
смешал карточки, из которых он составил слово.
Когда первоклассник Вася увидел на столе карточки с буквами, он попытался из них
составить свое слово.
Определите, какие карточки с буквами из Петиного набора не использовал Вася, если
известны слово, которое собрал Петя и слово, которое собрал Вася.
Ваша программа должна
 Запросить слово, которое собрал Петя;
 Запросить слово, которое собрал Вася;
 Найти и вывести на экран в любом порядке буквы, которые использовал Петя, но не использовал Вася или вывести на экран сообщение о том, что Вася использовал все карточки с буквами Пети.

возраста

память.Истинность двух высказываний."Если монитор исправен, то оперативная память исправна". "Если монитор неисправен или оперативная память исправна, то оперативная память неисправна, в видеокарта исправна". Означает, что исправна...