Урок 15 (Решенная задача номер 17)
Primary tabs
Урок 15 (Решенная задача номер 17)
17) У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.
type my_type = array[1..10] of integer; var array_one, array_second: my_type; procedure Conclusion(arr_1, arr_2:my_type); var i, g : integer; Flag : boolean; begin Flag := true; for i := 1 to 10 do begin for g := 1 to 10 do if (arr_1[i] = arr_2[g]) then begin Flag := false; break; end; if (Flag = true) then write(arr_1[i], ' ') else Flag := true; end; end; procedure Randoming(arr_1:my_type; arr_2:my_type); var g, c: integer; begin randomize(); for g := 1 to 10 do begin arr_1[g] := random(15); arr_2[g] := random(15); end; Conclusion(arr_1, arr_2); end; begin Randoming(array_one, array_second); end.
- Log in to post comments
- 1868 reads
vedro-compota
Sun, 11/08/2020 - 16:31
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)