begin writeln('Исходный массив:'); for i := 1 to N do begin a[i] := random(100) - 50; write(a[i]:4); end; iMin := 1;{инциируем первым элементом} for i := 2 to N do {проверяем все остальные} if a[i] < a[iMin] then {новый минимальный} iMin := i; {запомнить i} writeln; {перейти на новую строку} writeln('Минимальный элемент a[', iMin, ']=', a[iMin]); end.
ответ:Binary coding — 0010101101010010010101110100101
00101101101100010000101000100110
00101100001001101010100100101011
101010000
Informatica — 0011001001010111010011110101100
00101101101010110010010100101110
1010100100100110001001010
Kazakhstan — 0011010001001010011000110100101
00101010001010001010111000101110
10100101001010111
Rykhani jangyry — 0011101101100010010101000101000
10100101001010111010100100001010
00101001101001010010101110101000
00110001001011011011000100000111
00001110000101100010010110101101
10000111000011011001011110000111
00001110000101110
Объяснение: