Урок 15 Задача 22
Primary tabs
У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.
type massiv = array[1..10] of integer; var perv, vtor: massiv; i, j: integer; q: boolean; begin randomize(); for i:=1 to 10 do begin perv[i] := random(12); write (perv[i], ' '); end; writeln; for i:=1 to 10 do begin vtor[i] := random(15); write (vtor[i], ' '); end; writeln; writeln ('Числа первого массива, которые не содержатся во втором: '); for i:=low(perv) to high(perv) do // внешний цикл, обходим первый массив begin q:= false; for j:=low(vtor) to high(vtor) do // вложенный цикл, обходим второй массив if perv[i] = vtor[j] then // если встретмлось равное число begin q:=true; // переключаем переключатель break; // выходим из вложенного цикла end; if q = false then // если перекл-ль не переключился (не встретилось число) write (perv[i], ' '); // выводим на экран элемент первого массива end; readln(); end.
Вывод в консоли:
5 3 4 0 4 9 8 6 7 1 7 10 4 11 14 14 6 14 11 10 Числа первого массива, которые не содержатся во втором: 5 3 0 9 8 1
- Log in to post comments
- 569 reads
vedro-compota
Sun, 12/18/2022 - 15:43
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)