Тут программа не нужна. Здесь ты пытаешься объединить в одно два бесконечных множества с разной мощностью, вычислить сумму его элементов и разделить на бесконечность. Это не имеет смысла.
Исправленная программа: Program lab5; const n=11; type masiv=array[1..n]of integer; var l,k,m:masiv; i:integer; procedure vivod(mas:masiv); var i:integer; begin for i:=1 to n do write(mas[i],' '); writeln; end; procedure new_mas(var mas:masiv); var i,j:byte; min:integer; begin j:=1; min:=mas[1]; for i:=2 to n do if (min>mas[i]) then begin min:=mas[i]; j:=i; end; writeln('min = ',min); mas[j]:=mas[1]; mas[1]:=min; end; begin writeln('Дано:'); randomize; for i:=1 to n do begin l[i]:=random(-56,40); k[i]:=random(-56,40); end; write('массив L[',n,']: '); vivod(l); new_mas(l); write('измененный массив L[',n,']: '); vivod(l); write('массив K [',n,']: '); vivod(k); new_mas(k); write('измененный массив K[',n,']: '); vivod(k); for i:=1 to n do m[i]:=l[i]+k[i]; write('массив M[',n,']: '); vivod(m); end.
Пример полной программы, реализующей такой алгоритм
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
function Dec2Bin(x:integer):string; begin var t:=x; var r:string:=''; while t>=2 do (r,t):=(t mod 2+r,t shr 1); Result:=t+r end;
function Pow(x:real;n:integer):real; // Быстрое возведение в степень "слева направо" begin var m:=Dec2Bin(n); Result:=x; for var i:=2 to m.Length do begin Result:=Sqr(Result); if m[i]='1' then Result*=x end end;
begin var x:=ReadReal('Укажите основание х:'); var n:=ReadInteger('Укажите степень n:'); Writeln(x,'^',n,' = ',Pow(x,n)) end.
Тут программа не нужна. Здесь ты пытаешься объединить в одно два бесконечных множества с разной мощностью, вычислить сумму его элементов и разделить на бесконечность. Это не имеет смысла.