задача 15 урок 15
Primary tabs
задача 15 урок 15
Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m
РЕШЕНИЕ
program task_15_lesson_15; var a: array[1..50] of integer; i, j, m, p, k: integer; count: integer; begin writeln('kakoy otrezok proverit` ? ot m do P'); writeln('m : '); readln(m); writeln('p : '); readln(p); writeln('Proverka nalicia cisel ot 0 do K, vvedite K : '); readln(k); count := 0; for i := 1 to 50 do a[i] := i; for i := m to p do // нижняя граница и верхняя заданы пользователем for j := 0 to k do // по условию 0 <= k < n if j = a[i] then begin count += 1; break; end; for i := low(a) to high(a) do write(a[i], ' '); writeln(); if count = k then writeln('sovpsdenie 100%') else writeln('kolvo sovpadeniy ', count); readln end.
консоль:
kakoy otrezok proverit` ? ot m do P m : 5 p : 10 Proverka nalicia cisel ot 0 do K, vvedite K : 10 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 kolvo sovpadeniy 6
- Log in to post comments
- 956 reads
vedro-compota
Sun, 10/24/2021 - 12:17
Permalink
оформить в виде функции
оформить в виде функции
_____________
матфак вгу и остальная классика =)
vedro-compota
Sun, 10/24/2021 - 12:18
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)