Определить максимальный элемент масива и его порядковый номер.

279

428

Посмотреть ответы 2

Ответы на вопрос:

QWRWRRw4www2

Информатика

4,7(21 оценок)

Var ar: array[1..10] of integer; a,max,i: integer; begin randomize; writeln('array: '); for a: =1 to 10 do begin; ar[a]: =random(100); writeln(ar[a]); if max< ar[a] then begin; max: =ar[a]; i: =a; end; end; writeln('max: ',max); writeln('number: ',i); end.