Запись из массива в массив только те значения, которые равны 1 или любой другой цифре - Pascal ABC

Формулировка задачи:

Как записать из 1-го массива со значениями, во 2-ой массив только те значения, которые равны 1 или любой другой цифре, и чтобы записалось в такую-же ячейку массива? Например так: А[0,1,5,6,1,7] ===>> B[0,1,0,0,1,0]

Код к задаче: «Запись из массива в массив только те значения, которые равны 1 или любой другой цифре - Pascal ABC»

textual
for i:=1 to n do
if a[i]=1 then b[i]:=1 else b[i]:=0;

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ