var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
writeln('Чиcла кратные 4 на отрезке от ', a, ' до ', b);
for a := a to b do
if (a mod 4 = 0) and (a <> 0) then
write(a, ' ');
writeln;
end.
begin
var n := 25;
var M := ArrRandom(n, -50, 50);
M.Println; // исходный массив
// пузырьковая сортировка
for var i := n - 2 downto 0 do
for var j := 0 to i do
if M[j] > M[j + 1] then Swap(M[j], M[j + 1]);
M.Println; // отсортированный массив
var C := ReadInteger('Значение удаляемого элемента:');
var p := M.BinarySearch(C);
if p >= 0 then
begin
M := (M?[:p] + M?[p + 1:]).ToArray;
M.Println; // результат
end
else Println('Элемент не найден')
end.
const
N = 10;
var
c: array[1..N] of integer;
a, b, i: integer;
begin
writeln('Введите отрезок: '); readln(a, b);
for i := 1 to N do begin
c[i] := random(30);
write(c[i],' ');
end;
writeln;writeln;
for i := a to b do begin
if(c[i] mod 4 = 0) then write(c[i], ' ');
end;
end.