помагите из 20 элементов найти максимальный элемент

#include <stdio.h>#include <conio.h>const int N=10;clrscr;main(){int Max,index,i,A[N];printf("vvedi massiv");for(i=0;i<N;i++){printf("vvedite A[%d]=",i);scanf("%d",&A[i]);}Max=A[0]; index=0;for(i=1;i<N;i++){ if(A[i]>Max) { Max=A[i]; index=i; }} printf(" max ravno %d",Max); printf(" index raven %d",index);}

Предоставлю решение на Pascal

Program Zn;const N=21;var m:array[1..N] of integer; max,i:integer;Beginmax:=-30000;For i:=11 to N do beginWriteln('Введите эллемент массива');Readln(m[i]);if max<m[i] then max:=m[i]end;writeln('Максимальный эллемент массива=',max);end.

(Проверено и от компелировано на Pascal.NET)