Презентация 9 -22 Нахождение наибольшего и наименьшего элемента линейного массива
Заполнение массива Функция random генерирует случайное число из диапазона [0, 1) Функция random(x)генерирует случайное число из диапазона [0, x) Команда randomize – обновление базы случайных чисел
Заполнение массива (пример 1) Заполнение массива произвольными целыми числами из диапазона [0; 100) program pr_1; var A: array [1. . 8] of integer; var i: integer; begin cls; writeln('Задача 2. Формирование массива А (заполнение случайными числами)'); randomize; for i: =1 to 8 do begin A[i]: =random(100); writeln('A[', i, ']=', A[i]) end; end.
Пример 2 Найти наибольший элемент произвольного линейного массива. program pr_2; var A: array [1. . 10000] of integer; var i, max, n: integer; begin cls; writeln('Задача 3. Нахождение наибольшего элемента'); randomize; write('Введите количество элементов n '); readln(n); for i: =1 to n do begin A[i]: =random(30); writeln('A[', i, ']=', A[i]) end; max: =A[1]; for i: =2 to n do if A[i]>max then max: =A[i]; write('max=', max) end.
Пример 3 Найти сумму элементов линейного массива А(12), кратных 3. program pr_3; var A: array [1. . 12] of integer; var i, s: integer; begin cls; writeln('Задача 3. Нахождение суммы'); randomize; for i: =1 to 12 do begin A[i]: =random(100); writeln('A[', i, ']=', A[i]) end; for i: =1 to 12 do if A[i] mod 3=0 then s: =s+A[i]; write('s=', s) end.
Задачи 1. Найти минимальный по модулю элемент массива K(9). Диапазон элементов [-50, 50). 2. Найти сумму элементов произвольного линейного массива, кратных заданному числу. 3. Составить программу, считающую сколько в линейном массиве D(N) элементов равных нулю, и выводящую на экран номера этих элементов. Диапазон элементов [-30, 30). 4. Заменить элементы массива В(11) разностью элемента и среднего арифметического. Вывести на экран среднее арифметическое и новые элементы массива.
Скачать презентацию 9 -22 Нахождение наибольшего и наименьшего элемента
9 класс 9-22 Наибольший, наименьший элемент.ppt