Паскаль. дан массив l содержащий 26 элементов, в интервале от -15 до 13. найти минимальный и максимальный элементы и их порядковые номера и вывести их на э кран.
158
328
Ответы на вопрос:
Не трудно, но не полностью условие выполнено. лови решение: 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
Популярно: Информатика
-
nikitaefimenko13.04.2020 11:46
-
nicishcina07.10.2021 13:21
-
tanyapishulovaoyc3lb08.11.2022 04:22
-
Lerochka199816.08.2021 05:57
-
Юлия779129.06.2021 04:22
-
Elina115103.02.2023 00:52
-
57den1618.07.2021 07:14
-
ДаняПрохоров04.10.2020 21:54
-
nilyu20051321.05.2021 18:19
-
nazira1526.12.2022 15:13