как можно зеркально отобразить массив?

[Utkin]

b - у тебя строка, а ты пытаешься запихнуть туда число. И где цикл? Ты делаешь все один раз, а надо 10 - по числу элементов.

[Noor]

а почему у вас b:string, поставьте integer

Надеюсь подойдет такое решение

var A : array[1..10] of Real;
i:integer;
begin
Writeln('Введите элементы массива:');
for i:=1 to 10 do
Read(A[i]);
begin
Writeln('Нормальный массив:');
for i:=1 to 10 do
write(A[i],' ');
begin
Writeln('Зеркальный массив:');
for i:=10 downto 1 do
write(A[i],' ');
end;
end;
end.

[gylayko]

спасибо огромное! оказалось, это не так сложно! тему можно закрывать