Наименьшим будет 0, так как вначале идет генерация чисел от -49 до 50
потом в массив b записали квадраты этих чисел , то есть в начале и в конце будут наибольшие числа и ближе к центру они будут уменьшаться , так как в массиве нет отрицательных и есть цифра 0, то 0*0=0, вот и наш ответ.
Uses crt;var s,i,n:integer; a:array[1..100] of real;begin clrscr; randomize; readln(n); s:=0; for i :=1 to n do begin a[i]:=(random(2000)-1000)/10; write('a[',i,']=',a[i],'; '); end; for i :=1 to n-1 do begin if a[i]>a[i+1] then s:=s+1; end; if s=n-1 then Writeln('Последовательность убывающая') else Writeln('Последовательность неубывающая')end.
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s := ReadlnString('Введите строку:');
var c := ReadlnString('Какой символ удвоить?');
s := s.Replace(c, 2 * c);
s.Println
end.
Ответ:40
Объяснение:1)5000(м):100*10=500 метров он прибавлял каждый день
2)(25000-5000):500=40 дней
<span>Теоретически, программы можно установить на компьютер и без ведома операционной системы, например, это относится к приложениям MS-DOS. В этом случае они не будут представлены в меню Программы, но ничто не мешает создать им ярлыки и ввести их в меню вручную методом перетаскивания</span>
