14.10.2006, 23:38
общий
это ответ
Здравствуйте, Secret!
Предлагаемое решение см. приложение. Надеюсь, я вас правильно понял.
Удачи!
Приложение:
const n=10;var A,B,C,D:real; X,Y,Z:array[1..n]of real; i:word;BEGIN {... - ввод X и Z или какое-либо другое заполнение данными}for i:=1 to n do y[i]:=(A*x[i]+B)/(C*z[i]+D);{теперь вывод}writeln("i":10, "x":10,"y":10,"z":10);for i:=1 to n do writeln(i:10, x[i]:10:2, y[i]:10:2, z[i]:10:2);readlnEND.