program Arrminmax;
var
A: array of Integer;
N, i, imin, imax, Atmp: Integer;
begin
Write ('Введите размерность массива: ');
ReadLn (N);
SetLength(A, N); // устанавливаем размерность массива, введенную с клавиатуры
Randomize;
WriteLn ('Исходный массив:');
for i := Low (A) to High (A) do begin // заполняем массив случайными числами от -10 до 10 и выводим его на экран
A [i] := Random (21) - 10;
Write (A [i], ' ');
end;
imin := Low (A); // начальные значения - первых индекс в массиве
imax := Low (A);
for i := Low (A) to High (A) do begin // находим минимальный и максимальный элементы массива
if A [i] < A [imin] then
imin := i;
if A [i] > A [imax] then
imax := i;
end;
Atmp := A [imax]; // меняем местами минимальный с максимальным
A [imax] := A [imin];
A [imin] := Atmp;
WriteLn;
WriteLn ('Результат обработки:'); // вывод результата
for i := Low (A) to High (A) do begin
Write (A [i], ' ');
end;
ReadLn;
end.
Объяснение: в комментариях к программе
program mas;
var
massive: array[0..1000] of integer;
n, i: integer;
begin
massive[0] := 2;
write('Введите количество элементов массива: ');
read(n);
for i := 0 to n - 1 do
begin
write(massive[i], ' ');
massive[i + 1] := massive[i] + 2;
end;
end.
Объяснение:
Максимальный размер массива - 1001 элемент.
program mas; // Название программы
var
massive: array[0..1000] of integer; // Целочисленный массив
n, i: integer; // Переменные, отвечающие за количество чисел в массиве и счётчик.
begin // Начало программы
massive[0] := 2; // Первое значение массива = 2
write('Введите количество элементов массива: '); // Вывод сообщения в консоль
read(n); // Считываем значение переменной n с клавиатуры
for i := 0 to n - 1 do // Идём от 0 до n - 1 индекса (n - 1, т. к. идём с нулевого индекса)
begin // Начало цикла
write(massive[i], ' '); // Вывод значения массива с индексом i
massive[i + 1] := massive[i] + 2; // Следующий элемент массива = текущий элемент массива + 2
end; // Конец цикла
end. // Конец программы