Вопрос школьника по предмету Информатика
Дан массив размерностью n. Элементы вводятся случайным образом из диапазона [-15..15]. Удалить в нём все элементы меньше 0 и кратные 8. Вывести новый массив на экран
Ответ учителя по предмету Информатика
//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.
Похожие вопросы от пользователей
Известно, что один множитель разложения равен (x+y)
Найди другие (другой) множители разложения
x+y
xy
0,4
x2+0,4xy+y
x−y
0,2
помогите срочно очень срочно надо!!!
перекодировали в 16-битную кодировку, а затем приписали еще 12
символов. Чему равен информационный объем получившегося
сообщения?
План описания реки Пьяна.
1.В какой части материка течет?
2.Где берет начало.Куда впадает?
3.В каком направлении течет?
4.Как зависит характер течения от рельефа?
5.Каковы источники питания реки?
6.Каков режим реки и как он зависит от климата?
Помогите пожалуйста. Срочно нужно.