Program nnatovna; uses crt; const n=13; var a:array [1..n] of integer; i,min,max,temp:integer; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); writeln(); randomize; writeln('Элементы массива:'); {создание и вывод массива} for i:=1 to n do begin a[i]:=random(100)-50; write (a[i]:5); end; {ищем номера мин и мах} min:=1; max:=1; for i:=1 to n do begin if a[min]>a[i] then min:=i; if a[max]<a[i] then max:=i; end; {меняем местами мин и мах элементы} temp:=a[min]; a[min]:=a[max]; a[max]:=temp; {вывод результата} writeln(); writeln('Результат:'); for i:=1 to n do write(a[i]:5); end.
Program nnatovna;
uses crt;
const n=13;
var
a:array [1..n] of integer;
i,min,max,temp:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
writeln('Элементы массива:');
{создание и вывод массива}
for i:=1 to n do
begin
a[i]:=random(100)-50;
write (a[i]:5);
end;
{ищем номера мин и мах}
min:=1;
max:=1;
for i:=1 to n do
begin
if a[min]>a[i] then min:=i;
if a[max]<a[i] then max:=i;
end;
{меняем местами мин и мах элементы}
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
{вывод результата}
writeln();
writeln('Результат:');
for i:=1 to n do
write(a[i]:5);
end.
2. Память
2.1. Оперативная память
2.2. Долговременная память
2.2.1. Жесткий магнитный диск
2.2.2. Дискета
2.2.3. Флэш-память
2.2.4. Оптические диски
2.2.4.1. CD
2.2.4.2. DVD
3. Устройства ввода
3.1. Клавиатура
3.2. Мышь
3.3. Сканер
3.4. Графический планшет
3.5.Цифровая камера
3.6. Микрофон
3.7. Джойстик
4. Устройства вывода
4.1. Монитор
4.1.1. Жидкокристаллический монитор
4.1.2. Монитор на электронно-лучевой трубке
4.2. Принтер
4.2.1. Матричный принтер
4.2.2. Струйный принтер
4.2.3. Лазерный принтер