Задача 3 Урок 23 Потерянные числа из массива
Primary tabs
Есть массив массив уникальных, ненулевых элементов (целые числа, 10 элементов):
[123, 45, 5638, 49, -78, 22, 5, 345, 68, 7]
После каких-то преобразований получился массив:
[123, 5638, 22, 5, 68, 7, 0, 0, 0, 0]
Задача: сформируйте ещё один массив из "потерянных" чисел (всех элементов 1-ого массива, которых нет во втором).
program array_comparison; type arrNum10 = array[1..10] of integer; const ar1 : arrNum10 = (123,45,5638,49,-78,22,5,345,68,7); const ar2 : arrNum10 = (123,5638,22,5,68,7,0,0,0,0); const new_ar : arrNum10 = (0,0,0,0,0,0,0,0,0,0); var i,j,u,b :integer; begin u:=0; for i:=1 to length(ar1) do begin b:=0; for j:=1 to length(ar2) do begin if(ar1[i] = ar2[j]) then begin b:=1; break end; end; if(b=0) then begin new_ar[u]:=ar1[i]; u+=1; end; end; // вывод нового массива for j:=1 to length(new_ar) do write(new_ar[j], ' '); end.
- Log in to post comments
- 407 reads