Учебно-методический комплекс дисциплины для обучающегося «Языки программирования» для специальности 5В010900 Математика

const n1=100;

var a: array [1 .. n1] of real;

n,i,nmin, nmax: integer;

amin, amax: real;

begin

readln (n);

writeln ('Вводите элементы вектора');

for i:=1 to n do

readln (a[i]);

amin:=a[1]; nmin:=1;

amax:=a[1]; nmax:=1;

for i:=1 to n do

begin

if a[i] < amin then

begin

amin:=a[i]; nmin:=i

if a[i] >= amax then

begin

amax:=a[i]; nmax:=i

end;

writeln ('max=', amax:8:3,',nmax=', nmax:3);

end.
ПРИМЕР 2: Создать массив из N случайных целых чисел, равномерно распределенных в диапазоне от 0 до 100. Вычислить среднее арифметическое этих чисел.
П Р О Г Р А М М А
program SRED;

const

type

var

i,n:integer;

s:real;

begin

{создание массива}

for i:=1 to n do

begin

writeln (m[i])

end;

s:=0;

s:=s+m[i];

s:=s/n;

writeln ('s='s)

end.
Упражнение:

1. 
   В массиве вычислить сумму отрицательных, произведение положительных и количество нулевых элементов.
   
2. 
   Ввести массив . Подсчитать количество всех чисел, расположенных в промежутке [-1,1] и сумму всех остальных.
   
3. 
   Дан массив . Вычислить сумму .
   
4. 
   Дан массив . Найти произведение всех элементов, значения которых меньше 50, и сложить его с произведением элементов больших 100.
   
5. 
   Даны два массива и . На место массива X записать массив Y, а на место массива Y – массив X.
   
6. 
   Написать программу, которая проверяет, представляют ли элементы введенного с клавиатуры массива неубывающую последовательность.
   
7. 
   Написать программу, которая определяет количество студентов в группе, чей рост превышает средний.
   
8. 
   Даны целые числа . Если в данной последовательности ни одно четное число не расположено после нечетного, то получить все отрицательные члены последовательности, иначе – все положительные.
   
9. 
   Даны действительные числа . Оставить без изменения последовательность , если она упорядочена по не убыванию или не возрастанию; в противном случае удалить из последовательности те члены, порядковые номера которых кратны четырем, сохранив прежним порядок остальных членов.
   
10. 
    Даны действительные числа . Выяснить, имеются ли среди чисел совпадающие, и если есть, то определить их количество и порядковые номера.