align="justify"> Дано два цілочисельних масиву К (m) і L (n). Знайти найбільший елемент масиву K, який не має собі рівних у масиві L.
Лістинг з коментарями
Program Exercise_6;
Const m = 15; = 10; k: array [1 .. m] of Integer;: array [1 .. n] of Integer;, j, imax, b, r: Integer; : boolean;; i: = 1 to m do [i]: = -25 + random (75); ('k:'); i: = 1 to m do (k [i]: 4);; i: = 1 to n do [i]: = -25 + random (75); ('l:'); i: = 1 to n do (l [i]: 4);;
// сортування масиву ki: = 1 to m-1 do: = i; j: = i +1 to m dok [j]> k [imax] then: = j;: = k [i]; [i]: = k [imax]; [imax]: = b;; ('new_k:'); i: = 1 to m do (k [i]: 4);
Writeln;
// Перевіряємо (з max) елементи k [i] на наявність їх у масиві l
r: = 1;: = true; flag and not (r = m +1) do// щоб не вийти за межі массіваi: = 1 to n dok [r] = l [i] then
r: = r +1;// переходимо до наступного елементу масиву k
break; flag: = false;; flag then ('net takogo');;; ('Otvet:', k [r]);
Writeln;;
end.
Таблиця виконання
Таблиця тестів
Задача 7
масив рівняння ітерація матриця
Умова задачі
Упорядкувати по неспадання кожен рядок матриці A (m, n), а після цього перестановкою рядків впорядкувати всю матрицю по неспадання елементів першого стовпця.
Лістинг з коментарями
Program Exercise_7;
const = 10; = 10;: array [1 .. m, 1 .. n] of integer;: array [1 .. m] of integer;, j, p, k, t , s: integer; change (one, two: integer);: integer; i1: = 1 to n do: = a [one, i1]; [one, i1]: = a [two, i1]; [two, i1]: = s;;;; i: = 1 to m doj: = 1 to n do [i, j]: = Random (40);
// вивід массіваi: = 1 to m doj: = 1 to n do (a [i, j]: 3);;;;
// Сортіровкаi: = 1 to m doj: = 1 to n-1 dot: = 1 to nj doa [i, t]> a [i, t +1] then: = a [i, t]; [i, t]: = a [i, t +1]; [i, t +1]: = s;;
// вивід массіваi: = 1 to m doj: = 1 to n do (a [i, j]: 3);;;;
// заменаi: = 1 to m-1 doj: = 1 to mi doa [j, 1]> a [j +1,1] then (j, j +1);
// вивід массіваi: = 1 to m doj: = 1 to n do (a [i, j]: 3);;;;.
Таблиця виконання
Вихідний массівПромежуточний
Таблиця тестів
Вихідний
Задача 10
Умова задачі
Дано довжини a, b, c сторін деякого трикутника. Знайти медіани трикутника, сторо...
