Pascal. паскаль. написать программу, которая меняет знак всех положительных элементов, расположенных в строке и столбце матрицы с максимальным элементом

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

в си:

# include < stdio.h> # include < conio.h> void main ()  {

    clrscr();

    int x,y,c,k;

    printf("vvedite x \n");  

    scanf("%d",& x);

    printf("vvedite y \n");  

    scanf("%d",& y);

    printf("vvedite c \n");  

    scanf("%d",& c);

    k=x+(y/(2*c));

    printf("otvet: %d \n",k);

    getch();

  }