70

Заполнить массив 20 случайными числами (использовать генератор случайныхчисел).…

03 марта 2023

Заполнить массив 20 случайными числами (использовать генератор случайныхчисел). Найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве.

категория: информатика

79

const m=20; var arr: array[1… m] of integer; i, j, k,r: integer; beginfor i: =1 to m do begin arr[i]: =random (256); end; for i: =1 to m-1 do for j: =1 to m-i do if arr[j] > arr[j+1] then begin k: =arr[j]; arr[j]: =arr[j+1]; arr[j+1]: =k end; write (arr[20]); readlnend.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...