Презентация Нахождение наибольшего и наименьшего элемента линейного массива онлайн
На нашем сайте вы можете скачать и просмотреть онлайн доклад-презентацию на тему Нахождение наибольшего и наименьшего элемента линейного массива абсолютно бесплатно. Урок-презентация на эту тему содержит всего 6 слайдов. Все материалы созданы в программе PowerPoint и имеют формат ppt или же pptx. Материалы и темы для презентаций взяты из открытых источников и загружены их авторами, за качество и достоверность информации в них администрация сайта не отвечает, все права принадлежат их создателям. Если вы нашли то, что искали, отблагодарите авторов - поделитесь ссылкой в социальных сетях, а наш сайт добавьте в закладки.
Оцените презентацию от 1 до 5 баллов!
- Тип файла:ppt / pptx (powerpoint)
- Всего слайдов:6 слайдов
- Для класса:1,2,3,4,5,6,7,8,9,10,11
- Размер файла:592.50 kB
- Просмотров:77
- Скачиваний:0
- Автор:неизвестен
Слайды и текст к этой презентации:
№1 слайд
Содержание слайда: Нахождение наибольшего
и наименьшего элемента линейного массива
№2 слайд
Содержание слайда: Заполнение массива
Функция random генерирует случайное число из диапазона [0, 1)
Функция random(x)генерирует случайное число из диапазона [0, x)
Команда randomize – обновление базы случайных чисел
№3 слайд
Содержание слайда: Заполнение массива (пример 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.
№4 слайд
Содержание слайда: Пример 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.
№5 слайд
Содержание слайда: Пример 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.
№6 слайд
Содержание слайда: Задачи
1. Найти минимальный по модулю элемент массива K(9). Диапазон элементов [-50, 50).
2. Найти сумму элементов произвольного линейного массива, кратных заданному числу.
3. Составить программу, считающую сколько в линейном массиве D(N) элементов равных нулю, и выводящую на экран номера этих элементов. Диапазон элементов [-30, 30).
4. Заменить элементы массива В(11) разностью элемента и среднего арифметического. Вывести на экран среднее арифметическое и новые элементы массива.
Скачать все slide презентации Нахождение наибольшего и наименьшего элемента линейного массива одним архивом:
