Question

Дан одномерный массив целых чисел поменять местами самый первый и самый последний элемент не равный 0. Программа Pascal

Answer 1

var a:array[1..10]of integer;
i,k,i1:integer;
begin
for i:=1 to 10 do readln(a[i]);

for i:=10 downto 1 do if a[i]<>0 then begin k:=a[i]; i1:=i; break; end;

a[i1]:=a[1];
a[1]:=k;
for i:=1 to 10 do write(a[i],' ');
end.

Answer 2

Вот пример программы на Pascal, которая меняет местами первый и последний элемент массива, если они не равны 0:

program SwapFirstAndLast;
var
  arr: array[1..10] of integer;
  i, temp, first, last: integer;
begin
  // заполняем массив случайными числами
  randomize;
  for i := 1 to 10 do
  begin
    arr[i] := random(10); // заполняем случайными числами от 0 до 9
    write(arr[i], ' ');
  end;
  writeln;

first := 1;
  last := 10;

// ищем первый элемент массива, не равный 0
  while (arr[first] = 0) and (first < 10) do
    first := first + 1;

// ищем последний элемент массива, не равный 0
  while (arr[last] = 0) and (last > 1) do
    last := last - 1;

// меняем местами первый и последний элемент, если они не равны 0
  if (arr[first] <> 0) and (arr[last] <> 0) then
  begin
    temp := arr[first];
    arr[first] := arr[last];
    arr[last] := temp;
  end;

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

Эта программа создает массив из 10 случайных чисел, затем ищет первый и последний элементы массива, которые не равны 0, и меняет их местами. В конце программа выводит измененный массив.