Program day; var x:byte;beginwriteln('Введите число, чтобы узнать, какому дню недели оно соответствует:');Readln(x);Case x of0: writeln('Такого дня недели не существует.');1: writeln('Понедельник.');2: writeln('Вторник.');3: writeln('Среда.');4: writeln('Четверг.');5: writeln('Пятница.');6: writeln('Суббота.');7: writeln('Воскресенье.');8..1000: writeln('еправильный ввод.');end;end.
ВЫПОЛНЕНИЕ - активное состояние процесса, во время которого процесс обладает всеми необходимыми ресурсами и непосредственно выполняется процессором; ОЖИДАНИЕ - пассивное состояние процесса, процесс заблокирован, он не может выполняться по своим внутренним причинам, он ждет осуществления некоторого события, например, завершения операции ввода-вывода, получения сообщения от другого процесса, освобождения какого-либо необходимого ему ресурса; ГОТОВНОСТЬ - также пассивное состояние процесса, но в этом случае процесс заблокирован в связи с внешними по отношению к нему обстоятельствами: процесс имеет все требуемые для него ресурсы, он готов выполняться, однако процессор занят выполнением другого процесса.
Попробуй так: const nmax=100; var a: array[1..nmax,1..nmax] of integer; i,j,m,n,min,max,i_max,j_max,i_min,j_min,tmp: integer; begin randomize; write('Введите размеры массива m, n: '); readln(m,n); writeln('Исходная матрица:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(99)+1; write(a[i,j]:4); end; writeln; end; writeln; min:=a[1,1]; max:=a[1,1]; i_min:=1; j_min:=1; i_max:=1; j_max:=1; for i:=1 to m do for j:=1 to n do begin if a[i,j]>max then begin max:=a[i,j]; i_max:=i; j_max:=j; end; if a[i,j]<min then begin min:=a[i,j]; i_min:=i; j_min:=j; end; end; writeln('Максимальный элемент: ',max,'[',i_max,',',j_max,']'); writeln('Минимальный элемент: ',min,'[',i_min,',',j_min,']'); tmp:=a[i_min,j_min]; a[i_min,j_min]:=a[i_max,j_max]; a[i_max,j_max]:=tmp; writeln('Полученная матрица:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end; readln; end.
