Массивы

элементам массива случайных значений
Вывод элементов массива
Поиск элементов с заданными свойствами
Линейный

тип_элементов;

Имя массива (идентификатор) задается по тем же правилам, что и

размер массива 25 целых чисел.
var A: array[1..25] of integer ;
Этот

(констант), можно задавать в разделе описаний.
Например, массив из 7 простых

стандартные процедуры read или readln.
Например, следующая программа присваивает значения,

при каждом запуске работать с массивами, которые содержат разное количество

используется функция random(k), которая генерирует целое случайное число из промежутка

Результат работы

[a; b], то
A[i]:= random(b-a+1)+a;
Для задания случайных значений вещественных

write выводит значения элементов массива в строку. При этом выводимые

Вывод n элементов массива в столбец - по одному в строке
for i:=1 to n do
writeln(A[i]);

Вывод n элементов массива в строку - через пробел
for i:=1 to n do
write (A[i]);

– это последовательный просмотр всех элементов и проверка выполнения условий

значение среди всех элементов, а максимальный – наибольшее
Для нахождение

to N do
if A[i]>max then
max:=A[i];
После завершения работы в переменной max

Поиск минимального среди n элементов массива.
min:=A[1];
for i:=2 to N do
if A[i] min:=A[i];
После завершения работы в переменной min будет храниться значение максимального элемента массива.

поиск элемента с заданными свойствами
Подсчет количества элементов с заданными свойствами
Нахождение

переменных.
Написание программы.
Подготовка тестов и тестирование программы.

сумму элементов линейного массива.

a – линейный массив.

для суммы (S:=0).
В цикле прибавляем очередной элемент массива к текущему

тип array
Элементы массива имеют тип integer.
Для работы также необходима

элементов массива n=');
Readln(n);
Write('вводите элементы массива через пробел');
For i:=1 to n

должен быть следующим:
сумма элементов = 11
Проверить правильность вычислений можно

элементов массива? Внесите изменения.
Измените программу так, чтобы получить сумму и

правилу: положительные увеличить на 5, а отрицательные элементы массива заменить

в массиве,
Переменная a – линейный массив.
Результат
Преобразованный массив а

текущий элемент, если он положительный, то прибавляем к нему 5,

массива имеют тип integer.
Для работы также необходима переменная i

n=');
Readln(n);
Writeln('вводите элементы массива через пробел');
For i:=1 to n do
Read(А[i]);
For

должен быть следующим:
преобразованный массив
8 2 0 1 10

есть ли хотя бы один элемент который является нечетным, не

элементов в массиве,
Переменная a – линейный массив.
Результат:
Переменная

с барьером.
Занесем элемент, удовлетворяющий условию задачи (например, число 5)

тип array
Элементы массива имеют тип integer.
Для работы также необходима

массиве');
Readln(n);
Writeln('введите элементы');
For i:=1 to n do
Read(a[i]);
a[n+1]:=5;
k:=1;
while (a[k] mod 2=0) or

должен быть следующим:
элемент 3 стоит на месте 4

условию задачи? Почему?
Что нужно изменить в программе, чтобы выдавался

количество элементов, равных заданному числу x.

элементов в массиве,
Переменная a – линейный массив.
Переменная х

поиска.
До просмотра элементов массива k=0.
Будем просматривать элементы с

число (x),
количество найденных (k),
текущий элемент (i);

массиве');
Readln(n);
Writeln('введите элементы');
For i:=1 to n do
Read(a[i]);
Writeln('введите число х');
Readln(x);
k:=0;
for i:=1 to

число х
2
Проверьте, результат должен быть следующим:
в массиве 3 элементов =2

только количество элементов, равных х, но их сумму.
Предложите разные способы.
Определите,

из элементов минимальный или максимальный встречается раньше.

элементов в массиве,
Переменная a – линейный массив.
Результат:
Текстовый

элемент массива (min) и его номер (nmin)
Найдем максимальный элемент массива

массива имеют тип integer.
Переменные min, max, nmin, nmax имеют

в массиве');
Readln(n);
Writeln('введите элементы');
For i:=1 to n do
Read(a[i]);
{поиск минимального

4
Проверьте, результат должен быть следующим:
максимальный встретился раньше

Почему?
Внесите в программу изменения, чтобы ответ был верным.
Можно ли получить