Составить программу определения максимального элемента одномерного массива и индекса максимального элемента
Содержание
- 2. Составить программу определения максимального элемента одномерного массива и индекса максимального элемента.
- 3. program maximum; var i, n, imax: integer; a: array[1..50] of real ; max: real; begin write(‘ввод
- 4. max:=a[1]; imax: =1; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; imax :=i;
- 5. Составить программу определения минимального элемента одномерного массива и индекса минимального элемента.
- 6. program minimum; var i, n, imin: integer; a: array[1..50] of real ; min: real; begin write(‘ввод
- 7. min:=a[1]; imin: =1; for i:=2 to n do begin if a[i] begin min:= a[i]; imin:= i;
- 8. Задан одномерный массив. Поменять местами максимальный и минимальный элементы массива.
- 9. program obmen; var i, n, imax, imin: integer; a: array[1..50] of real ; max, min, p
- 10. max:=a[1]; imax: =1;min:=a[1]; imin:=1; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; imax
- 11. p:=a[imin]; a[imin]:= a[imax]; a[imax]:= p; for i:=1 to n do write(‘ a[’, i, ‘]=‘, a[i]); end.
- 12. Задан одномерный массив. Определить количество элементов, равных максимальному элементу массива.
- 13. program kolmax; var i, n, imax, kmax: integer; a: array[1..50] of real ; max: real; begin
- 14. max:=a[1]; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; kmax :=1; end else
- 15. Задан одномерный массив. Определить максимальный среди отрицательных элементов массива.
- 16. program max_otr; var i, j, n: integer; a: array[1..50] of real ; max: real; begin write(‘ввод
- 18. Скачать презентацию