В чём ошибка?
type st = set of -32768..32767;
var
a:array[1..100,1..100]of integer;
v:array[-10000..10000]of boolean;
el,k,n,i,j,l,h,k_str,g:integer;
b:st;
begin
writeln('Введите количество строк или столбцов квадратной матрицы: ');
readln(n);
writeln('Введите матрицу: ');
for i:=1 to n do
begin
v[i]:=false;
for j:=1 to n do read(a[i,j]);
end;
writeln();
k:=0;b:=[];g:=0;
for i:=1 to n do
for j:=1 to n do begin
if not(a[i,j]in b)then
begin
for l:=1 to n do
for h:=1 to n do if(a[l,h]=a[i,j])then begin inc(k);if(l mod 2 = 0)then inc(k_str);end;
if(k<>0)then writeln('Элемент: ',a[i,j]:5,' Всего: ',k:5,' На чётных строках: ',k_str);
if(k_str=k)and(k>1)then begin inc(g); v[a[i,j]]:=true; end;
k:=0;k_str:=0;
b:=b+[a[i,j]];
end;
end;
writeln();
if(g<>0)then
begin
writeln('Повторяющиеся элементы, расположенные только на чётных строках: ');
for i:=1 to n do
for j:=1 to n do if(v[a[i,j]])then begin write(a[i,j],' ');v[a[i,j]]:=false; end;
end
else writeln('Ни один повторяющийся элемент не расположен только на чётных строках!');
end.

program z1;

var a:array[1..2,1..4] of integer;

i,j,mi,mj:integer;

begin

mi:=1;

mj:=1;

writeln('Массив: ');

for i:= 1 to 2 do

begin  

for j:= 1 to 4 do

begin

a[i,j]:=random (10);

write(a[i,j]:3);

if a[i,j]<a[mi,mj] then

begin

mi:=i;

mj:=j

end

end;

writeln;

end;

writeln;

writeln('Наименьший элемент массива a[',mi,',',mj,'] = ',a[mi,mj])

end.

Объяснение:

Сразу работаем с индексами массива. Сначала предполагаем, что первый элемент массива и есть наименьший, сравниваем с ним остальные, если они меньше, то меняем индексы наименьшего элемента.

Если наименьших индексов больше одного, то на экран будет выведено расположение первого.

Так, в зависимости от алгоритма управления процессором, операционные системы делятся на: Однозадачные и многозадачные. Однопользовательские и многопользовательские. Однопроцессорные и многопроцессорные системы.

Объяснение:

Однопроцессорные :

В архитектуре однопроцессорныx вычислительных систем (ВС) принято различать следующие устройства:

- устройства управления (УУ),

- центральный процессор (ЦП),

- память,

- устройство ввода-вывода (В/В),

- каналы обмена информацией. Принцип работы однопроцессорной ВС состоит в последовательном выполнении команд. Главной задачей при создании алгоритма является представление алгоритма в виде последовательности команд. Основная проблема оптимизации сводится к минимизации числа операций и размера требуемой памяти.

многопроцессорные :

Многопроцессорные системы формально имеют сходную структуру:

- устройство управления;

- первый процессор;

- второй процессор;

………………

- k-й процессор;

- память (общую или разделенную);

- устройство ввода-вывода;- каналы обмена информацией. Узкое место такой системы - коммуникационная сеть (каналы обмена информацией). Сложность сети обычно растет пропорционально квадрату числа имеющихся устройств. В настоящее время трудно создать эффективную связь между любыми двумя устройствами многопроцессорной ВС