Слайд 1Нахождение наибольшего
и наименьшего элемента линейного массива
Презентация 9-22
Слайд 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) разностью элемента и среднего арифметического. Вывести на экран среднее арифметическое и новые элементы массива.