Var i:integer;
x:array[1..5]of integer;
begin
for i:=1 to 5 do
begin
if i<>5 then read(x[i+1])
else read(x[1]);
end;
end.
Самое простое решение-считывать сразу в сдвинутом состоянии.
Море-горе-гора-пора-пара-папа-сапа-Саша-суша.
Var a:array [1..8,1..8] of integer;
j,k,n:integer;
begin
randomize;
for j:=1 to 8 do
begin
for k:=1 to 8 do
begin
a[j,k]:=random(9)+1;
write (a[j,k]:2);
end;
writeln;
end;
repeat
write ('N = ');
readln (n);
until n in [1..8];
for j:=1 to 8 do write (a[n,j]:3);
writeln;
readln;
end.
Достаточно задать два вопроса:Какой ты год родилась и месяц?