не могу найти ошибку

[92Edik]

условие-поменять местами первую и последнюю цифры числа!






program masz25;
var a:array[1..100] of integer;
i,k,n:integer;
begin
WRITELN ('введите размер массива');
READLN (n);
write('введите числа');
WRITELn;
for i:=1 to 3 do
readln(a[i]);
k:=a[1];
a[1]:=a[3];
a[n]:=k;
WRITELN;
For i:=1 to 100 do
WRITEln (a[i]);
end.

[Alex11223]

Ошибка в том, что это решение абсолютно другой задачи. Вы ввели n чисел (не факт даже, что они однозначные) в массив, присвоили переменной к первое из них, потом этому первому числу присвоили третье и заменили n-ое число в массиве на к, после чего вывели весь массив.

Раз уж массив решили использовать, то эту задачу можно решить с помощью строк (string). Либо с помощью чисел можно: понадобится остаток (mod) от деления на 10 для последней цифры и деление (div) в цикле на 10 для первой цифры.

Cо строками проще и наверно именно это и надо, раз тема про массивы.

[New man]

function Change(i:integer):integer;
var n:ineger;
     j:integer;
begin
    n:=10;
    m:=1;
   while i div n<>0 do 
       n:=n*10;
       
   n:=n div 10;
   j:=i div n;
   i:=i mod 10 *n+i mod n;
   i:= i div 10*10+j
   result:=i;
end;