Задача 19 Урок 15
Primary tabs
У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.
type ArrOfInt = array[1..10] of integer; var k, kz: integer; a, b: ArrOfInt; procedure printArray(a1: ArrOfInt); //п-а печати массива var i1: integer; begin writeln('Длина массива: ', length(a1)); for i1 := low(a1) to high(a1) do write(a1[i1], ' '); writeln(); end; procedure ml(a1, b1: ArrOfInt); //ф-я проверки, что есть все числа var i1, j1, c1: integer; s: boolean; begin c1 := 0; s := false; for i1 := low(a1) to high(a1) do begin s := false; for j1 := low(b1) to high(b1) do begin if a1[i1] = b1[j1] then begin s := true; break; end; end; if s = false then begin write(a1[i1], ' '); inc(c1); end; end; // отладочная writeln('c1 ', c1); if c1 = 0 then writeln('Все числа первого массива есть во втором'); end; function f1(k1: integer; a1: ArrOfInt): ArrOfInt; // ф-я создаем массив var i1: integer; begin randomize(); for i1 := low(a1) to high(a1) do //создаем массив и наполняем его a1[i1] := random(k1) - 5; result := a1; end; begin randomize(); k := random(5) + 10; kz := random(5) + 10; a := f1(k, a); b := f1(kz, b); printArray(a); printArray(b); writeln(); writeln('Во втором массиве нет чисел: '); ml(a, b); readln(); end.
КОНСОЛЬ
Длина массива: 10 -2 3 4 4 -3 1 1 -4 -1 5 Длина массива: 10 -1 4 5 5 -3 2 2 -4 0 7 Во втором массиве нет чисел: -2 3 1 1
- Log in to post comments
- 892 reads
vedro-compota
Sun, 11/28/2021 - 13:15
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)