П р о г р а м м а

program min_and_max;

const n1=100;

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

n,i,nmin, nmax: integer;

amin, amax: real;

begin

writeln ('n=');

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

end;

if a[i] >= amax then

begin

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

end

end;

writeln ('min=', amin:8:3,',nmin=', nmin:3);

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

end.

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

П р о г р а м м а

program SRED;

const

nmax=1000;

type

x=array [1 .. nmax] of integer;

var

m:x;

i,n:integer;

s:real;

begin

writeln ('n='); readln(n);

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

for i:=1 to n do

begin

m[i]:=random (101);

writeln (m[i])

end;

s:=0;

for i:=1 to n do

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. Даны действительные числа . Выяснить, имеются ли среди чиселсовпадающие, и если есть, то определить их количество и порядковые номера.

Лабораторная работа 7 работа с матрицами

Цель работы: Научиться составлять алгоритмы и программы для обработки двумерных массивов.

Краткие сведения из теории

Двумерный массив состоит из элементов с двумя индексами: один показывает номер столбца в массиве, другой - номер строки.

В Турбо-Паскале возможны массивы и большей размерности. Для их описания возможны два подхода:

а) массив рассматривается как массив других массивов:

type

x=array[1..100] of real;

y=array[1..2] of x;

или

type y=array[1..100,1..2] of real;

б) массив рассматривается как многоиндексный

type y=array [ 1...100, 1...2 ] of real;

Оба описания равноценны.

ПРИМЕР 1: Получить матрицу, элементами которой являются произведения номеров строк i и номеров столбцов j.