Var mas: array[1..15] of integer; i, min, max, nMin, nMax:integer; begin writeln('Введите 15 элементов массива'); for i := 1 to 15 do readln(mas[i]); min := mas[1]; max := mas[1]; nMin := 1; nMax := 1; for i := 1 to 15 do begin if max < mas[i] then begin max := mas[i]; nMax := i; end; if min > mas[i] then begin min := mas[i]; nMin := i; end; end; writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку