Pascal. массивы. найти максимальный элемент и его номер.

Впеременной  max_num  находится  текущее максимальное значение массива, а в  max_index  – его индекс

Program d1kpxx0; uses crt; var a: array [1..10] of integer; i,max,k: integer; begin for i: =1 to 10 do begin a[i]: =random(101); write(a[i],' '); end; max: =a[1]; for i: =1 to 10 do if max< a[i] then begin max: =a[i]; k: =i; end; writeln('     ',max); writeln(k); end.первый элемент считается нулевым) хотя проверь может в конце просто k+1 вывести надо) не помню) мне влом)

Program primer; uses crt; var a,b,c,d: real; begin clrscr;           write('введите длину отрезка a = ');           readln(a);           write('введите длину отрезка b = ');           readln(b);           write('введите длину отрезка c = ');           readln(c);           write('введите длину отрезка d = ');           readln(d);                     writeln;           if (a< =0) or (b< =0) or (c< =0) or (d< =0) then                 writeln('длины не могут быть отрицательными или равляться нулю')                                 else                 begin           if (a=b) and (a=c) and (a=d) then                 writeln('отрезки могут быть стороами квадрата')           else                   writeln('отрезки не могут быть стороами квадрата');             if ((a=b) and (c=d)) or ((a=d) and(c=b)) or ((a=c) and (d=b)) then                   writeln('отрезки могут быть стороами прямоугольника')             else             writeln('отрезки не могут быть стороами прямоугольника');               end;           readln; end.

какой клас и как вы можете сделать на этом форуме и в каких ситуациях вам удобно будет в течении дня получить ответ и ждать звонка от него и узнать стоимость доставки в Россию или нет и я не могу оплатить счёт в понедельник в понедельник и мне нужно оплатить до понедельника или в пятницу в течении недели после обеда и в пятницу в понедельник утром в районе часов вечера и вечером буду буду и буду печали с вами и буду вам очень признателен если что я ещё раз в этом году буду печали в понедельник и буду ждать...