Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 100, затем меняет местами максимальный и минимальный элемнет. выведите на экран исходный и полученный массив. язык pascal program prim; var a: array [1..10] of integer; i, z, max, min: integer; begin for i: =1 to 10 do a[i]: =random(101); writeln (' исходный массив: '); for i: =1 to 10 do write (a[i], ' '); writeln; max: = a[1]; for i: =2 to 10 do if a[i]> max then begin max: = a[i]; end; writeln ('максимальный элемент=', max); min: = a[1]; for i: =2 to 10 do if a[i] begin min: = a[i]; end; writeln ('минимальный элемент=', min); writeln; z: =a[min]; a[min]: =a[max]; a[max]: =z; writeln (' полученный массив'); for i: =1 to 10 do write (a[i], ' '); writeln; end.

РукиКрабы111111111    2   15.08.2019 18:30    0