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-й процессор;
- память (общую или разделенную);
- устройство ввода-вывода;- каналы обмена информацией. Узкое место такой системы - коммуникационная сеть (каналы обмена информацией). Сложность сети обычно растет пропорционально квадрату числа имеющихся устройств. В настоящее время трудно создать эффективную связь между любыми двумя устройствами многопроцессорной ВС
const N=3;M=3;
L=9;
var a:array [1..N,1..M] of real;
b:array [1..L] of real;
i,j,x,k:integer;
begin
x:=1;
for i:=1 to N do
for j:=1 to M do
begin
read(a[i,j]);
if a[i,j]>0 then
begin
b[x]:=a[i,j];
x:=x+1;
end;
end;
clrscr;
for i:=1 to N do
begin
for j:=1 to M do
write(a[i,j]:3:0);
writeln;
end;
writeln;
for k:=1 to x-1 do
write(b[k],' ');
end.