Вопрос по информатике:
ЗАПОЛНИТЬ ПРОПУСКИ
Дан линейный массив. Изменить массив, вычеркнув из него все четные трехзначные элементы, которые кратны своему индексу.
Type LinMass = array [1..1000] of Integer;
Var A : LinMass; N, i, j : Integer;
begin
Write('Количество элементов массива: '); ReadLn(__);
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.
- 15.03.2018 04:19
- Информатика
- remove_red_eye 1696
- thumb_up 28
Ответы и объяснения 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.
- 16.03.2018 19:51
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.