Вопрос по информатике:
Дан массив размерностью n. Элементы вводятся случайным образом из диапазона [-15..15]. Удалить в нём все элементы меньше 0 и кратные 8. Вывести новый массив на экран
Пожаловаться
- 22.06.2015 13:36
- Информатика
- remove_red_eye 14183
- thumb_up 7
Ответы и объяснения 1
//PascalABC.Net 3.2
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.
Пожаловаться
- 23.06.2015 07:39
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы