Дан массив размерностью n. Элементы вводятся случайным образом из диапазона [-15..15]. Удалить в нём все элементы меньше 0 и кратные 8. Вывести новый массив на экран

Дан массив размерностью 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы