I have a problem that i need to solve, and dont know how to do it.
I have two arrays of 80 numbers (array[1..80] of integer) and i want to multiply them, saving the result in another array. I am beginner in pascal, learning it at school, so i have only this and I dont know what to do next. I am from Czech republic, so i have variables in czech. I need it tomorrow, so please reply as soon as possible. Thank for any answer.
var j,l :integer pole1, pole2, naspole1, naspole2 : array[1..80] of integer; ... for l:=80 downto 1 do begin for j:=2 to 80 do begin if nas2<>0 then naspole1[j]:=pole1[j]*pole2[j]+nas2 else naspole1[j]:=pole1[j]*pole2[l]; nas2:=0; if naspole1[j]>=10 then begin nas1:=naspole1[j] div 10; nas2:=naspole1[j] mod 10; naspole1[j]:=nas1; end; write(naspole1[j]); end; end; end; ...
Edited 5 Years Ago by globusak: n/a