1)Вариант:
begin
var ar:=arrrandom(10, -5, 5);
//ar.Println;
end.
2)Вариант:
var
ar: array[1..10]of integer;
begin
for var i := 1 to 10 do ar[i] := random(-5, 5);
//for var i := 1 to 10 do write(ar[i],' ');
end.
Var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;
begin
Write('Введите через пробел границы диапазона: ');
Readln(a, b);
if b < a then begin n := a; a := b; b := n end;
if a < 11 then a := 11;
for i := a to b do
begin
Str(i, s);
n := Length(s); n2 := n div 2; flag := true; j := 1;
repeat
flag := (s[j] = s[n - j + 1]);
j := j + 1
until (not flag) or (j > n2);
if flag then Write(i, ' ')
end;
end.
Тестовое решение:
Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441
<span>Основные функции текстовых процессоров. Создание документов; редактирование документов: перемещение по тексту, вставками замена символов, удаление, перемещение, копирование, поиск и замена фрагментов текста, отмена команд; вставка фрагментов других документов или целых документов и т. Д.; Сохранение документов во внешней памяти (на дисках) и чтение из внешней памяти в оперативную; форматирование документов, т. Е. Выполнение преобразований, изменяющих форму (внешний вид) документа: оформление отдельных символов и абзацев, страниц, документа в целом - изменение длины строки, межстрочного расстояния, выравнивания текста, изменение шрифта, его размера, применение различного начертания шрифтов и т. Д.; Печать документов (или их некоторой части); автоматическое составление оглавлений и указателей в документе; создание и форматирование таблиц; внедрение в документ рисунков, формул и др.; Проверка пунктуации и орфографии</span>
k = float(input('Введите число для сравнения: '))
print('Вводите числа в одной строке через пробел:')
a = list(map(float,input('Ввод: ').split()))
m,r,b = 0,0,0
for i in a:
if i < k:
m += 1
if i == k:
r += 1
if i > k:
b += 1
print('Меньше ',k,':',m,' чис.')
print('Равно ',k,':',r,' чис.')
print('Больше ',k,':',b,' чис.')
Пуск-завершение работы или принудительное