Нужна в отредактировании программы паскаль. нужно, чтобы выводилось максимальное среди двузначных элементов массива. максимальное программа выводит, но где и как прописать, что элементы массива только двузначные? program maxdvuz; var i,n,i1: integer; a: array[1..1000] of integer; amax: real; begin assign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln(n); for i: =1 to n do read (a[i]); amax: =a[1]; for i: =1 to n do begin if a[i]> amax then begin amax: =a[i]; i1: =i; end; end; writeln(amax: 0: 0); close (input); close (output); end.

bykhan2    3   26.05.2019 19:10    0