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

Помагите из 20 элементов найти максимальный элемент
Гость
Ответ(ы) на вопрос:
Гость
#include #include const int N=10; clrscr; main() {int Max,index,i,A[N]; printf("vvedi massiv\n"); for(i=0;iMax) { Max=A[i]; index=i; } } printf("\n max ravno %d",Max); printf("\n index raven %d",index); }
Гость
Предоставлю решение на Pascal Program Zn; const N=21; var m:array[1..N] of integer; max,i:integer; Begin max:=-30000; For i:=11 to N do begin Writeln('Введите эллемент массива'); Readln(m[i]); if max