Паскаль. Дан массив L содержащий 26 элементов, в интервале от -15 до 13. Найти минимальный и максимальный элементы и их порядковые номера и вывести их на э кран.

Паскаль. Дан массив L содержащий 26 элементов, в интервале от -15 до 13. Найти минимальный и максимальный элементы и их порядковые номера и вывести их на э кран.
Гость
Ответ(ы) на вопрос:
Гость
Лол, -15 и 13 это разве так трудно?
Гость
Не трудно, но не полностью условие выполнено. Лови решение: program arrs; var a : array[1..26] of integer; i, min, max : integer; m1, m2 : byte; begin randomize; for i:=1 to 26 do begin a[i] := random(29)-15; write(a[i], ' '); end; min := 15; max := -20; for i:=1 to 26 do begin if a[i] < min then begin min:=a[i]; m1 := i; end; if a[i] > max then begin max:=a[i]; m2 := i; end; end; writeln; writeln('Минимальный элемент в ячейке ', m1, ' равен ', min); writeln('Максимальный элемент в ячейке ', m2, ' равен ', max); end. тестовый прогон: 0 2 -1 2 -9 -13 -9 -5 0 -14 11 6 8 -11 13 3 -15 -6 -15 -14 -3 13 9 7 3 -4 Минимальный элемент в ячейке 17 равен -15 Максимальный элемент в ячейке 15 равен 13
Не нашли ответ?
Ответить на вопрос
Похожие вопросы