Question

Заполнить пропуски дан линейный массив. изменить массив, вычеркнув из него все четные трехзначные элементы, которые кратны своему индексу. type linmass = array [1..1000] of integer; var a : linmass; n, i, j : integer; begin write('количество элементов массива: '); ; for i : = 1 to do begin write('введите a[', i, '] '); readln(a[i]); end; i: =1; while i < = n do if 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 n do write(a[i]: 6); end.

Answer 1

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(A[i]);
End;
i:=1;
while i <= n do
if (A[i] mod 2 = 0) and (A[i] mod i = 0) and (A[i] div 1000 = 0) and (A[i] div 100 > 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 N Do
write(a[i]:6);
end.