Нужно перевести на язык кумир. оценю на максимум как только можно. program daumoh; type mas = array[1..1000] of integer; var a: mas; i: byte; n, c, d: integer; begin randomize; write('введите длину последовательности: '); readln(n); write('оригинальный массив: '); for i : = 1 to n do begin a[i] : = random(100); write(a[i]: 4); end; writeln; repeat write('введите начало и конец отрезка: '); readln(c, d); until (d > c) and (c < n) and (d < = n); write('элементы, которые принадлежат отрезку [', c, ',', d, ']: '); for i : = c to d do write(a[i]: 4); end.

0508761681    1   12.09.2019 16:48    0