Создайте одномерный массив, поменяйте местами первый элемент кратный 7 и средний элемент,решить на Pascal ABC.

Предыдущий
вопрос Следующий
вопрос

var
arr: array[1..10] of integer;
i, mid_index, temp, first_index: integer;

begin
// заполняем массив произвольными значениями
for i := 1 to 10 do
begin
arr[i] := random(20) + 1;
write(arr[i], ' ');
end;
writeln;

// находим индекс среднего элемента
mid_index := 5;

// находим первый элемент кратный 7
first_index := -1;
for i := 1 to 10 do
begin
if (arr[i] mod 7 = 0) then
begin
first_index := i;
break;
end;
end;

// меняем местами первый элемент кратный 7 и средний элемент
if (first_index <> -1) then
begin
temp := arr[first_index];
arr[first_index] := arr[mid_index];
arr[mid_index] := temp;
end;

// выводим измененный массив
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;
end.