Добрый день. Помогите написать код ассемблера на паскале для решения задачки на тему масивы.
суть такова:
есть масив А=[1..10] надо вывести масив В=А^2
А так же, не могли бы вы проверить правильно ли я написал паскалевский код?
Код:
Program lab;
uses crt;
var i,n:integer;
b,a:array[1..10] of integer;
begin
clrscr;
Writeln('Vvedite razmernist massiva:');
readln(n);
randomize;
writeln('Poluchen massiv:');
for i:=1 to n do
begin a[i]:=random(100)-50;
end;
Writeln('Poluchen massiv B:');
for i:=1 to n do
begin
b[i]:=a[i]*a[i];
Wroteln(b[i],' ');
end;
asm
P.S. Мне это надо сдать завтра утром, так что прошу не писать про учебники.
Заранее благодарен.