for i:=1 to N do begin
write('X[',i:3,']=');
readln(X[i]); end;
for j:=1 to M do begin
write('Y[',j:3,']=');
readln(Y[j]); end;
Заранее всем огромное спасибо!
М | Тэги!! - Lapp |
for i:=1 to N do begin
write('X[',i:3,']=');
readln(X[i]); end;
for j:=1 to M do begin
write('Y[',j:3,']=');
readln(Y[j]); end;
М | Тэги!! - Lapp |