Объясните как делать var k, m: integer; dat: array[1..10] of integer; begin a [1] : = 20; a [2] : = 16; a [3] : = 20; a [4] : = 36; a [5] : = 15; a [6] : = 21; a [7] : = 28; a [8] : = 17; a [9] : = 26; a [10] : = 35; m : = 1; for k : =1 to 10 do if a[k] > a[m] then begin m: =m+1 end writeln (m)

tjumentseva20031    3   03.06.2019 17:45    1