Ответ:
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.
11 строка не стоит точка с запятой
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a,b,c:integer; // цифры числа n = abc
var (i,j,k):=(1,2,3); // места цифр a,b,c, расположенных по неубыванию
var s1:array[1..3] of string:=('первая','вторая','третья');
var s2:array[1..3] of string:=('первой','второй','третьей');
a:=n div 100;
b:=(n div 10) mod 10;
c:=n mod 10;
// сортировка по неубыванию
if a>b then begin Swap(a,b); Swap(i,j) end;
if b>c then begin
Swap(b,c); Swap(j,k);
if a>b then begin Swap(a,b); Swap(i,j) end
end;
if c>b then Writeln(s1[k],' цифра больше остальных')
else
if b>a then Writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i])
else Writeln('Все три цифры одинаковы')
end.
<u>Примеры</u>
n= 638
третья цифра больше остальных
n= 583
вторая цифра больше остальных
n= 707
первая и третья цифры больше второй
n= 444
Все три цифры одинаковы
Стандартом сотовой связи не является <span>MMS</span>
