Massive.

[Sazary]

Не могли бы Вы написать код полностью?

А почему вы сами этого не можете сделать?
Глядя на ваши прошлые темы видно, что основы вы знаете.
Так в чем проблема?

Объявляете массив и переменные.
Вводите A (readln(A))
Вводите массив (for i:=1 to n do readln(x[i]))
Потом цикл.
И все.

[Paul Oakenfold]

Program pr_8_6;
uses crt;
var a,i,x,j,n:integer;
Begin
clrscr;
writeln ('a= ');
readln(a);
for i:=1 to n do
readln (x[i]));
for i:=1 to n-1 do
 for j:=i+1 to n do
  if sqr(a)+sqr(x[i])=sqr(x[j])
  then
   writeln('x[',i,',',j,']= ',x[i],'    x[',i,',',j,']= ',x[j]);
end.

выдаёт ошибку здесь

readln (x[i]));

Error 121: Invalid qualifier.

[DM_bite]

Error 121: Invalid qualifier.

У тебя там массива вообще нет.

[Paul Oakenfold]

У тебя там массива вообще нет.

помоги плиз, как там записать?

[DM_bite]

Program pr_8_6;
uses crt;
const n=?;
var a,i,j:integer;
     x: array [1..n] of integer;
Begin
clrscr;
writeln ('a= ');
readln(a);
for i:=1 to n do
readln (x[i]));
for i:=1 to n-1 do
 for j:=i+1 to n do
  if sqr(a)+sqr(x[i])=sqr(x[j])
  then
   writeln('x[',i,',',j,']= ',x[i],'    x[',i,',',j,']= ',x[j]);
end.

Да и у n нет значения , какое значение должна иметь n?(насколько я понял, это константа).

[Sazary]

Paul Oakenfold
x - массив. Вот и объявите его соответствующим образом.
И n за вас никто вводить не будет.

Ps опоздал немного..

[Paul Oakenfold]

не знаю... мб с клавиатуры вводить? или конст? (если конст, то любое число можно будет подставить?)
В задании не написано...

[Sazary]

Paul Oakenfold, раз в задании не написано, то вам и выбирать.
Выберите то, что больше нравится.
Я бы вводил с клавы.

[Paul Oakenfold]

Program pr_8_6;
uses crt;
const n=10;
var a,i,j:integer;
     x: array [1..n] of integer;
Begin
clrscr;
write ('a= ');
readln(a);
for i:=1 to n do
readln (x[i]);
for i:=1 to n-1 do
 for j:=i+1 to n do
  if sqr(a)+sqr(x[i])=sqr(x[j])
  then
   writeln('x[',i,',',j,']= ',x[i],'    x[',i,',',j,']= ',x[j]);
readkey;
end.

что-то программа некоректно работает... или я что-то не так делаю... ввожу числа, пока программа обратно не вернёт...?!

[Sazary]

что-то программа некоректно работает.

Все работает как надо.

или я что-то не так делаю... ввожу числа, пока программа обратно не вернёт...?!

Обратно не вернет...что?
Пример ввода:

a= 3
1
2
3
4
5
6
7
8
9
0
x[4,5]= 4    x[4,5]= 5