Program test5; var x, y: integer;
Begin
x:=1;
y:=8;
x:=y;
y:=x
End.

Введите ответ:

x=

y=

var

  a: array [1..10] of integer;  //Массив из 10 целых элементов

  max, i: integer;  //max - максимальный элемент

 

begin

  max:= 0;  {Присваиваем max минимальное значение, которое он может принять}

  write('Исходный массив:  ');  {Заполняем исходный массив, печатаем его и находим максимальный элемент}

  for i:= 1 to 10 do 

  begin

    a[i]:= random(10);

    write(a[i], '  ');

    if (i mod 2 = 0) and (a[i] > max) then

      max:= a[i];

  end;

  writeln('Максимальный элемент массива среди элементов с четными индексами: ', max);  //Печатаем исходный элемент

end.

Если все правильно, отметь решение как лучшее)

//Dev-C++ 5.11 (C)

#include <stdio.h>
#include <stdlib.h>
#include <ctime>
#include <malloc.h>

int main(void)
 {int i,n,*ar1,*ar2,min1,min2,b=1;
 scanf("%d",&n);
 ar1=(int*)malloc(n*sizeof(int));
 ar2=(int*)malloc(n*sizeof(int));
 srand(time(NULL));
 printf("Array 1:\n");
 for(i=0;i<n;i++)
  {ar1[i]=rand()%10;
  printf("%d ",ar1[i]);}
 printf("\n Array 2:\n");
 for(i=0;i<n;i++)
  {ar2[i]=rand()%10;
  printf("%d ",ar2[i]);}
 min1=ar1[0];
 min2=ar2[0];
 for(i=1;i<n;i++)
  {if (min1>ar1[i])
   min1=ar1[i];
  if (min2>ar2[i])
   min2=ar2[i];}
 for(i=0;i<n;i++)
  if (min2==ar2[i])
   {if(i+1==n)
    {printf("Za massivom");
    b=0;}
   else
   ar2[i+1]=min1;
   break;}
 if(b)
  {printf("\n Fin array 2: \n");
  for(i=0;i<n;i++)
   printf("%d ",ar2[i]);}
 free(ar1);
 free(ar2);
 return 0;}

Пример ввода:
3
Пример вывода:
Array 1:
2 0 7
 Array 2:
1 1 2 
Fin array 2:
1 0 2