1. var a: array [1..11] of integer; i, min, imin: integer; begin for i:=1 to 10 do read(a[i]); min:=32000;imin:=0; for i:=1 to 10 do if (a[i] mod 2) = 0 then if a[i]<min then begin min:=a[i]; imin:=i; end; write('Минимальное:', min, ' Индекс:', imin); end.
2. function stepen(c, s: integer):integer; var j, rez: integer; begin rez:=c; for j:=1 to (s-1) do rez:=rez*c; stepen:=rez; end; var a: array [1..11] of integer; i, min, imin: integer; begin for i:=1 to 10 do a[i]:=stepen(2, i); for i:=1 to 10 do write(a[i], ' '); end.
Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.
Её изобрёл Дуглас Карл Энгельбарт из Стэнфордского исследовательского института. Первая мышь выглядела как деревянная коробочка, которая перемещалась по столу на колёсиках, отсчитывая их обороты и развороты. Затем эта информация вводилась в компьютер и управляла перемещением курсора на экране. Энгельбарт не может припомнить, кому принадлежит авторское право на название устройства: "Устройство выглядело как мышь с хвостом, и мы все в лаборатории его так и называли". Отметим, что Энгельбарт работал над созданием манипулятора не один: он является автором идеи и разработчиком концепции, но само устройство сделал не он. Первая мышь была сделана руками аспиранта по имени Билл Инглиш (Bill English), а присоединившийся позднее Джеф Рулифсон (Jeff Rulifson) существенно улучшил конструкцию мыши и разработал для неё программное обеспечение. В архивах Стэнфордского университета хранится учебный фильм 1968 года, в котором демонстрируется первая компьютерная мышь и её потрясающие для того времени возможности. Сейчас Дуглас Энгельбарт мог бы быть богаче и известней Билла Гейтса, но он сознательно "ушёл в тень" и о нём мало кто вспоминает. В 68-м он получил от работодателей за своё изобретение чек на $10 тысяч и весь гонорар внёс в качестве первого вклада за скромный загородный домик.
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do read(a[i]);
min:=32000;imin:=0;
for i:=1 to 10 do if (a[i] mod 2) = 0 then
if a[i]<min then begin min:=a[i]; imin:=i; end;
write('Минимальное:', min, ' Индекс:', imin);
end.
2.
function stepen(c, s: integer):integer;
var
j, rez: integer;
begin
rez:=c;
for j:=1 to (s-1) do rez:=rez*c;
stepen:=rez;
end;
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do a[i]:=stepen(2, i);
for i:=1 to 10 do write(a[i], ' ');
end.
Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.
Отметим, что Энгельбарт работал над созданием манипулятора не один: он является автором идеи и разработчиком концепции, но само устройство сделал не он. Первая мышь была сделана руками аспиранта по имени Билл Инглиш (Bill English), а присоединившийся позднее Джеф Рулифсон (Jeff Rulifson) существенно улучшил конструкцию мыши и разработал для неё программное обеспечение. В архивах Стэнфордского университета хранится учебный фильм 1968 года, в котором демонстрируется первая компьютерная мышь и её потрясающие для того времени возможности. Сейчас Дуглас Энгельбарт мог бы быть богаче и известней Билла Гейтса, но он сознательно "ушёл в тень" и о нём мало кто вспоминает. В 68-м он получил от работодателей за своё изобретение чек на $10 тысяч и весь гонорар внёс в качестве первого вклада за скромный загородный домик.