4.3. Примеры.
1. Вычисление суммы элементов массива.
Program example1;
Var a:array[1..100] of real;
i,n:integer;
s:real;
begin
writeln(‘введите число элементов массива’);
readln(n);
s:=0;
for i:=1 to n do
Begin
Writeln(‘a[‘,i,’]=’);
Readln(a[i])
End;
for i:=1 to n do
S:=s+a[i];
writeln(‘s=’,s:5:2)
end.
2. Поиск минимального (максимального) элемента массива.
Program example2;
Var a:array[1..100] of integer;
i, n, min, nmin:integer;
begin
writeln(‘введите число элементов массива’);
readln(n);
for i:=1 to n do
Begin
Writeln(‘a[‘,i,’]=’);
Readln(a[i])
End;
Min:=a[1]; {в качестве минимального элемента полагаем первый элемент массива}
Nmin:=1; {номер минимального элемента}
for i:=2 to n do
if a[i]<min {проверяем, если очередной элемент меньше минимального}
then begin
min:=a[i]; {тогда его полагаем минимальным}
nmin:=i; {запоминаем номер этого элемента}
end;
writeln(‘минимальный элемент a[’,nmin,’]=’,min);
writeln(‘номер минимального элемента=’, nmin);
end.
3. Программа, подсчитывающая количество пар равных соседних элементов в массиве целых чисел.
Program example3;
Var a:array[1..100] of integer;
i,n,k: integer;
real;
begin
writeln(‘введите число элементов массива’);
readln(n);
for i:=1 to n do
Begin
Writeln(‘a[‘,i,’]=’);
Readln(a[i])
End;
k:=0;
for i:=1 to n-1 do begin
if a[i]=a[i+1] {если соседние элементы равны}
then k:=k+1 {количество равных соседних элементов увеличиваем на единицу}
end;
Writeln(‘k=’, k)
end.
4. Сортировка массива по убыванию методом поплавка.
Program example4;
uses crt;
const n=15;
var a:array [1..n] of integer;
i,j,b:integer;
begin
clrscr;
writeln(' ввод массива');
for i:=1 to n do begin
a[i]:=random(50);
write(a[i]:4)
end;
writeln;
{ сортировка по убыванию}
for i:=1 to n-1 do begin
for j:=1 to n-i do begin
if a[j]<a[j+1] then{сравнение рядом стоящих элементов}
begin b:=a[j]; {перестановка элементов}
a[j]:=a[j+1];
a[j+1]:=b
end
end;
end;
writeln('массив после сортировки');
for i:=1 to n do write(a[i]:4);
end.
4.4. Упражнения.
В массиве A(20) подсчитать среднее арифметическое отрицательных элементов, сумму квадратов четных элементов.
Вычислить сумму
где,
- параметры, меняющиеся одновременно
с номером элемента массива:
- от 0,2 с шагом 0,5;
-
от 1 с шагом 0,25.Вычислить сумму
где:
- параметр, меняющийся одновременно с
номером элемента массива от 0 с шагом
0,05.В массиве В(100) подсчитать сумму каждого десятка элементов. Из найденных элементов сформировать отдельный массив.
В массиве В(20) найти элементы, кратные трем, их порядковые номера, количество и сумму. Из найденных элементов сформировать отдельный массив.
В массиве А(20) найти максимальное и минимальное значения среди элементов и их среднее арифметическое. Значения элементов массива задаются формулой:
При
делении на 0 значение элемента массива
принять равным 1.Для вектора (х1, х2,…………., х20), имеющего положительные и отрицательные элементы. Вычислить среднее арифметическое положительных элементов массива и сумму элементов, стоящих на четных местах.
Составить программу для упорядочивания элементов вектора (х1, х2,…………., х100), расположив их в порядке возрастания в том же массиве.
Дан вектор М(20). Расположить элементы вектора по увыбанию.
В массиве С(100) найти количество элементов, лежащих в диапазоне от А до В, где А и В – заданные чмсла.
В массиве M(100) найти максимальное и минимальное значения элементов и их порядковые номера. Элементы массива вычисляются по формуле
при
делении на 0 значение элемента принять
равным десяти.
В массиве В(30) найти элементы, кратные двум, их порядковые номера, количество и сумму. Из найденных элементов сформировать отдельный массив.
Найти количество элементов массива, стоящих между максимальным и минимальным элементами.
Найти минимальный элемент массива В(50) среди четных элементов этого массива.
Написать программу, которая удаляет из массива В(18) элементы, меньшие заданной величины и освободившиеся места заполняет нулями.
Найти произведение отрицательных элементов массива
А(20).
Найти сумму положительных элементов массива A(25), расположенных до максимального элемента.
Найти сумму элементов массива A(45), расположенных после первого нулевого элемента.