Вопрос школьника по предмету Информатика
Дан массив размерностью 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.
Похожие вопросы от пользователей
«У Лукоморья дуб зелёный
Златая цепь на дубе том
И днём и ночью кот учёный
Всё ходит по цепи кругом»
Помогите, пожалуйста)
{2y+5x=9
5x−6y=0