Определить значение наибольшего элемента массива заполненного ...

Ira

примени эту программу себе, тут и мах и мин program zadanie4; uses crt; var i:integer; max,min,maxi,mini:integer; a:array[1..10] of integer; begin clrscr; randomize; for i:=1 to 10 do a:=random(51); writeln('ischodni file'); writeln('-----------------'); for i:=1 to 10 do write(a:5); writeln; writeln; maxi:=1; max:=a[1]; for i:=2 to 10 do begin if a>max then begin max:=a; maxi:=i; end; end; mini:=1; min:=a[1]; for i:=2 to 10 do if a; end; write('maximalnoe = '); writeln(max); write('minimalnoe = '); writeln(min); write('maximalnoe i = '); writeln(maxi); write('minimalnoe i = '); writeln(mini); writeln('konec zadachi'); readln; end.