<span>Program al;
var a: array[1..100] of integer;
buf:integer;
i,n,min:integer;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
min:=a[1];
for i:=1 to n do
if a[i]<min then min :=a[i];
writeln('mn=', min);
readln;
end.</span>
Ответ:
14638(десячичная система) -
пронумеруем разряды
4 3 2 1 0
1 4 6 4 8
теперь запишем выражение
14638(десячичная система) = 1 х 10^4 + 4 х 10^3 + 6 x 10^2 + 4 x 10^1 + 8 x 10^0
Объяснение:
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('N=');
var mas:=ArrRandom(N,-20,20); mas.Println;
writeln('Положительных элементов: ',mas.Count(t->t>0));
writeln('Отрицательных элементов: ',mas.Count(t->t<0));
writeln('Нулевых элементов: ',mas.Count(t->t=0));
end.