Массивы в Делфи. Помогите с заданием,не могу разобраться,как записать условие отбора...

Question

Массивы в Делфи.
Помогите с заданием,не могу разобраться,как записать условие отбора элементов для массива

---

Answer 1

А)
const N=20;
var a,i:integer;
    X: array [1..N] of integer;
begin
  write('Введите значение A=');
  readln(A);
  for i:=1 to 6 do X[i]:=A+i;
  for i:=7 to N do X[i]:=i-A;
end.
б)
const N=20;
var a,i:integer;
    X: array [1..N] of integer;
begin
  write('Введите значение A=');
  readln(A);
  for i:=1 to N do
     if (i>2) and (i<=6) then X[i]:=A mod i<br>                        else X[i]:=A div i + i;
end.

Comments

Спасибо огромное за ответ!Но я так понимаю,это код для паскаля?Не могли бы вы подсказать,как все это оформить в среде Делфи?