Смотри картинку
Объяснение:
Крестик - начало слова, стрелка - конец.
Абак - счётные доски для вычислений в Древней Греции, Древнем Риме, Древнем Китае и т.д.
Арифмометр - настольная или портативная механическая вычислительная машина.
Перфокарта - носитель информации. Тонкий картон с отверстиями или без них в определённых местах.
Транзистор - полупроводниковое устройство, которое используется для усиления, генерации и преобразования электрических сигналов. Транзисторы заменили вакуумные лампы в большинстве электронных устройств, свершив революцию в создании интегральных схем и компьютеров.
ЭНИАК – первая электронная вычислительная машина.
Бэббидж Чарлз - изобретатель первой аналитической вычислительной машины.
Лавлейс Ада - написала первые программы для аналитической вычислительной машины Беббиджа.
Лейбниц - предложил двоичную систему счисления, автор первой механической счётной машины производившей сложение, вычитание, умножение и деление чисел.
Возняк Стив - один из основателей компании Apple. Разработал первый массовый домашний компьютер и первый массовый персональный компьютер.
Холлерит Герман - создатель электрической статистической табулирующей системы (оборудования для работы с перфокартами).
Непер Джон - изобретатель логарифмов, для их вычисления он предложил устройство под названием «палочки Непера».
Шиккард Вильгельм - придумал «Считающие часы», первый арифмометр, умевший выполнять четыре арифметических действия.
Паскаль Блез - автор первой механической счётной машины, выполнявшей сложение и вычитание чисел. (Паскаль - один из наиболее известных языков программирования.)
Лебедева Сергей - под его руководством была создана МЭСМ (малая электронная счётная машина).
Const
n=5;
Var
ar:array[1..n] of real;
i,maxi,mini:integer;
s,min,max:real;
begin
randomize;
min:=2147483647;
max:=-2147483648;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(30);
write(ar[i]:6);
if ar[i]>max then
begin
max:=ar[i];
maxi:=i;
end;
if ar[i]<min then
begin
min:=ar[i];
mini:=i;
end;
s:=s+ar[i];
end;
s:=s/n;
ar[maxi]:=ar[maxi]-maxi;
ar[mini]:=ar[mini]+s;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:6);
end.