Это как ? Имеется в виду что в учебнике ?
Если да то, большинство в учебнике рассказывается про историю как создавался компьютер . От линейки до сверхкомпьютеров NASA
var a: integer;
procedure row(n:integer);
begin
if n>=1 then begin
write (n, ' ');
row(n-1)
end;
end;
begin
readln(a);
row(a);
end.
я сделал рандомные числа от 0 до 100, если нужно можешь изменить, что бы заполнялся пользователем.
a[10],i,min,s,p:integer
randomize
for i=1 to 10 do
a[i]:=random(101);
min:=a[i];
s:=0
p:=1
for i=1 to 10 do begin
if a[i]<min then
min:=a[i];
if a[i]<0 then
s:=s+a[i];
if a[i] mod 3 = 0 then
p:=p*a[i];
end;
write('minimum=', min, ' summ=', s, ' umnosenie=', p);
end.
12022, 1222, 989, 90899, 9000