0

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