Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

А)
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
                        else X[i]:=A div i + i;
end.