Добавить возможность поэлементного объединения файлов: пары чисел из двух входных файлов должны друг за другом записываться в выходной файл. Это требует одновременного открытия ТРЕХ файлов: два с исходными данными и
один-результирующий.
Код ниже:
Uses CRT;
var
i, x, y, k: Integer;
f,g: file of integer;
name,name1: string;
begin
repeat
writeln('Меню');
writeln();
writeln('1. Создать файл');
writeln('2. Прочитать файл');
writeln('3. Копирование файла');
writeln('4. Завершить работу');
writeln();
write('Выберите дейсвтие: ');
readln(y);
writeln();
writeln();
if y=1 then begin
Randomize;
writeln('Введите имя файла:');
readln(name);
Assign(f, name+ '.dat'); Rewrite(f);
for i:=1 to 100 do begin
x:=-100+Random(201); Write(f,x);
end;
Close(f);
end
else if y=2 then begin
assign(f, name+ '.dat'); reset(f);
while not eof(f) do begin read(f,i);
write(' ',i)
end;
close(f);
writeln();
readln

end

else if y=3 then begin

assign(f, name+ '.dat');
reset (f);

writeln('Введите имя результатирующего файла:');
readln(name1);
Assign(g, name1+ '.dat');
rewrite (g);
while not eof (f) do begin
read (f, k);
write (g, k)
end;
close (f);
close (g);

end

else if y=4 then begin
writeln('Конец программы');

end;
until y = 4;

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-й процессор;

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

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