Задача 15 урок 15
Primary tabs
Задача 15 урок 15
Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1
var a: array[1..100] of integer; k, i, c, z, p, m: integer; begin randomize(); z:=0; //количество совпадений for i:=low(a) to high(a) do //заполняем массив a[i]:= random(100); writeln('Enter k'); readln(k); writeln('Enter m: 1 <= m < p <= 100'); readln(m); writeln('Enter p: 1 <= m < p <= 100'); readln(p); for c:=0 to k do //варианты от 0 до к begin for i:=m to p do //сравниваем с основным от m до p if a[i] = c then begin writeln(a[i],'=',c); z:=z+1; //если нашли совпадения счетчик +1 break; end; if z=k then //если совпадения=к заканчиваем поиск успехом begin writeln(k, ' sovpadeny'); break; end; end; if z < k then //если совпадений по итогу < k сообщаем writeln('net ', k, ' sovpadeny'); readln(); end.
- Log in to post comments
- 1544 reads
vedro-compota
Sun, 09/05/2021 - 11:58
Permalink
перенести проверяющий код в
перенести проверяющий код в функцию, которая возвращает boolean
_____________
матфак вгу и остальная классика =)
boris68
Sun, 09/05/2021 - 20:00
Permalink
var a: array[1..100] of
vedro-compota
Tue, 09/14/2021 - 22:15
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)