А) наибольшее 1100112 = 5110
б) наименьшее 1114 = 2110
Ответ:
1.
var a:array [1..20] of integer;
i,m:integer;
begin
for i:=1 to 20 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
write('Массив ');
m:=a[1];
for i:=1 to 20 do
begin
write (a[i], ' ');
if a[i]<m then m:=a[i]
end;
writeln;
writeln ('Наименьший элемент ',m)
end.
2.
var a:array [1..10] of integer;
i,mi:integer;
begin
write('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(46)-20;
write (a[i], ' ')
end;
writeln;
mi:=1;
for i:=2 to 10 do
if a[i]<a[mi] then mi:=i;
writeln ('Номер наименьшего элемента ',mi)
end.
begin
var eps := ReadReal('Введите желаемую точность:');
var b := 1 / (2 * 3 * 4);
var s := b;
var i := 2;
var a: real;
repeat
a := b;
b := 1 / ((i + 1) * (i + 2) * (i + 3));
s += b;
Inc(i)
until Abs(b - a) <= eps;
Println(s)
end.
Var a,b: Real;
begin
writeln('Введите a и b');
readln(a,b);
if a>b then
begin
a:=a*10;
b:=b/10;
end;
if a<b then
begin
b:=b*10;
a:=a/10;
end;
if a=b then
begin
b:=b*10;
a:=a*10;
end;
writeln('a: ',a);
writeln('b: ',b);
end.
