Const
n=10;
var
i,im:integer;
a:array[1..10] of integer;
begin
Randomize;
im:=1;
for i:=1 to n do begin
a[i]:=Random(21)+1;
Write(a[i],' ');
if a[i]<a[im] then im:=i
end;
Writeln;
Writeln('Минимальный элемент a[',im,']=',a[im])
end.
<u>Пример</u>
20 13 16 7 9 4 21 13 2 10
Минимальный элемент a[9]=2
Перезагрузи компьютер , если не поможет то включи попробуй , а потом выключи антивирусы.
Лигажд гпе рацщоорп лддж:(₽ раклдп ))))))
Объяснение в приложении. Простите за почерк)
2.1. При a=0, 11, 22, 33, 44, 55, 66, 77, 88, 99.
2.2 Если вводится одно- или двузначное число - да (кроме 0, при нуле в выводе будет 0) . Иначе - нет т.к. при вводе многих из трехзначных чисел и всех из чисел с более, чем трем знаками результат будет более, чем трехзначным (т.к. div найдет не первое число, а все, кроме последнего).
2.3 при вводе 125 ответ будет 62. Он получается таким образом: a1=125 mod 10 = 5; a2 = 125 div 10 = 12; b = a1*10+a2=50+12=62.