Изменить массив, вычеркнув из него все элементы, кратные сумме своих соседей справа и слева

@Александра2307 · Регистрация: 25.04.2015

Author24 — интернет-сервис помощи студентам

Заполнить пропуски.
Дан линейный массив. Изменить массив, вычеркнув из него все элементы, кратные сумме своих соседей справа и слева.

Pascal

Type LinMass = array [1..1000] of Integer;
Var A : LinMass; N, i, j : Integer; 
begin
   Write('Количество элементов массива: '); ReadLn(N);
   For I := 1 To N Do
   Begin
       Write('Введите A[', I, '] '); ReadLn(____);
   End;
  i:=2;
  while i < n do
    if A[i] mod ________ = 0
    then begin
        for j:=i+1 to n do A[j-1]:=A[j];
        n:=n-1
         end
    else i:= i+1;
  For I := 1 To ____ Do write(a[i]:6);
end.

@Puporev · 22.06.2015, 19:37

Pascal

Type LinMass = array [1..100] of Integer;
Var A : LinMass;
    N, i, j : Integer;
begin
Write('Количество элементов массива от 3 до 100 n=');
ReadLn(N);
For I := 1 To N Do
 Begin
  Write('Введите A[', I, '] ');
  ReadLn(A[i]);
 End;
i:=2;
while i < n do
if A[i] mod (A[i-1]+A[i+1]) = 0 then
 begin
  for j:=i to n-1 do
  A[j]:=A[j+1];
  n:=n-1;
 end
else i:= i+1;
For I := 1 To n Do write(a[i],' ');
end.

	22.06.2015, 19:37