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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку