а учебные программы - вообще фхтагн.
Но вот какой код можно написать в паскале, не зная всех условий задачи. О_о
Код
program l_2_6;
uses crt;
var A:array [1..2,1..10] of real;
i,j:integer;
T:real;
BEGIN
clrscr;
Write ('Enter matrix A (2x10): (press "Enter" to begin)');
readln;
for i:=1 to 2 do
for j:=1 to 10 do
begin
gotoxy(j*3,i*2+1);
read (A[i,j]);
end;
readln;
T:=A[1,1]/A[2,1];
for j:=2 to 10 do
if ((A[1,j]/A[2,j])=T) then begin
{something}
end;
{something else}
END.
Вот. Это так, для себя запись. О_о.