//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var n:=ReadInteger('Введите число элементов');
var k:=ReadInteger('Введите число k');
var a:=ArrRandom(n,10,99);
a.Println;
for var i:=0 to n-1 do
if a[i] mod k =0 then println('Кратно',k,a[i]);
end.
13 символів, так як один символ=1 біт
const
n = 10; //количество чисел, которое нужно сформировать
First = -10; //С какого числа должны генерироваться случайные числа
Second = 15;{По какое число должны генерироваться случайные числа(например в данном случае случайные числа генерируются в диапазоне от - 10 до 15)}
var
f, g, h: text;
i: integer;
Number: array [1..n] of integer;{Массив, в который записываются числа, считанные из файлов}
begin
randomize;
assign(f, 'f.txt');//Инициализируем файл f
assign(g, 'g.txt');//Инициализируем файл g
assign(h, 'h.txt');//Инициализируем файл h
rewrite(f);//Открываем файл f для записи
for i:= 1 to n div 2 do write(f, random(abs(First) + abs(Second)) + First , ' ');{Первую половину чисел записываем в файл f}
close(f);//Закрываем файл f
rewrite(g);//Открываем файл g для записи
for i:= (n div 2) + 1 to n do write(g, random(abs(First) + abs(Second)) + First, ' ');{Вторую половину случайно сгенерированных чисел записываем в файл g}
close(g);//Закрываем файл g
reset(f);//Открываем файл f для считывания
for i:= 1 to n div 2 do read(f, Number[i]);{Первую половину чисел считываем из файла f в массив}
close(f);//Закрываем файл f
reset(g);//Открываем файл g для считывания
for i:= (n div 2) + 1 to n do read(g, Number[i]);{Вторую половину чисел считываем из файла g в массив}
close(g);//Закрываем файл g
rewrite(h);//Открываем файл h для записи
for i:= 1 to n div 2 do write(h, Number[i], ' ');{Первую половину считанных чисел из массива записываем в файл h}
writeln(h);//Перевод на новую строку в файле h
for i:= (n div 2) + 1 to n do write(h, Number[i], ' ');{Вторую половину считанных чисел из массива записываем в файл h}
close(h);//Закрываем файл h
end.
Все файлы создаются там же, где находится файл программы.
Это, если не учитывать, что введённые числа могут быть одинаковы
program p17;
var
x, x1, x2: integer;
a,a1,a2: integer;
beginwrite ('Введите число: ');
readln (x);
write ('Введите число: ');
readln (x1);
write ('Введите число: ');
readln (x2);
if (x>x1) and (x>x2) then a:=x
else if (x1>x) and (x1>x2) then a:=x1
else if (x2>x) and (x2>x1) then a:=x2;
if (x<x1) and (x<x2) then a1:=x
else if (x1<x) and (x1<x2) then a1:=x1
else if (x2<x) and (x2<x1) then a1:=x2;
a2:=a+a1;
writeln ('Cумма самого большого и самого маленького числа, введённого вами: ',a2);
end.
<span>uses crt;
var a: array [1..15] of integer;
i: integer;
begin
writeln('Дан массив');
for i:=1 to 15 do
begin
a[i]:=random(41)-20;
write(a[i]:5);
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 15 do
if a[i] mod 2=0 then write(a[i]/2:5:1)
else write(a[i]*3:5);
end<span>.</span></span>