печатает те элемента массива, индексы которых

1. являются степенями двойки (1, 2, 4, 8, 16...)

2. являются полными квадратами (1, 4, 9, 16,...)

3. являются числами Фибоначчи (1, 2, 3, 5, 8,...)

преобразует массив по следующему правилу (через x' обозначены элементы массива x после преобразования):

4. x'[k]=max x[i] при 1≤i≤k, k=1..n

5. располагает элементы массива в обратном порядке

6. x'[1]=x[1], x'[n]=x[n], x'[k]=(x[k-1]+x[x+1])/2

7. x'[k] равно среднему из x[i] при 1≤i≤k, k=1..n

8. элементы массива циклически сдвигает на две позиции влево

9. элементы массива циклически сдвигает на три позиции вправо

10. упорядочивает каждую пару элементов, так что x'[i]єx'[i+1] i=1,3, 5,...

11. переставляет первый элемент на k место так, что x'[i]<x'[k], x'[k] ≤x'[j], i=1, 2,...k-1, j=k+1, k+2,...n

12. сортирует массив x по невозрастанию методом пузырька

13. сортирует массив x по невозрастанию методом выбора максимального элемента

14. сортирует массив x по невозрастанию методом вставки

Процедуры и функции

Часть I

1) Определите значение переменной y после выполнения следующей программы:

program massiv;

function test(a, b: integer): integer;

var z: integerl

begin

if a>b then z:=a else z:=b;

test:=2*z+1;

end;

var y, k1, k2: integer;

begin

k1:=test(3, 7);

k2:=test(5, 2);

y:=k1+k2;

end.

2) Найдите ошибки в описании процедур и функций:

a. function g(k:integer):0..maxint; var   i,s:0..maxint; begin s:=0;     for i:=1 to k do s:=s+sqr(i) end;	b. function h(x:integer):integer; begin h(x):=(sqr(x)+x)/2 end;
c. function m(x:integer):integer; var   i: integer; begin m:=0; for i:=1 to 10 do m:=m+x*x; end;	d. procedure zero(a:array[1..10]                                           of integer); var    i: integer; begin for i:=1 to n do a[i]:=0; end;

3) Допишите следующую программу, реализовав используемые в ней процедуры. Программа считает поэлементную сумму двух векторов. Какие параметры передаются по значению, а какие по ссылке и почему?

const

    n=5; {размерность векторов}

type

    vector=array[1..n] of integer;

{ Реализация процедур:

 ReadVector(var a:vector)      - ввод вектора.

 WriteVector(a:vector)            - вывод вектора.

 Sum(a,b:vector; var s:vector) - поэлементное суммиров. векторов,

                                                       s[i]:=a[i]+b[i]}

{Основная программа}

var

    a,b, {исходные вектора}

    s: vector; {сумма векторов a и b}

begin

    ReadVector(a);

    ReadVector(b);

    Sum(a, b, s);

    WriteVector(a);

    WriteVector(b);

    WriteVector(s);

end.

4) Напишите функцию для нахождения:

a) максимального элемента вектора;

b) суммы элементов вектора.

Часть II

1) Написать процедуру или функцию:

1. Написать функцию для нахождения количества различных элементов вектора, не используя дополнительных массивов

2. Написать функцию less для сравнения векторов, такую что less (a, b)= true <=> a<b <=> a[i]<b[i] для любого i

3. Написать функцию для нахождения расстояния |a[i]-a[j]| между двумя наиболее близких по значению элементами вектора

4. Написать функцию для нахождения расстояния |a[i]-a[j]| между двумя наиболее удаленными по значению элементами вектора

5. Наити количество элементов группы, содержащей наибольшее число одинаковых элементов вектора

Например:    1 2 1 2 3 9 8 2 результат: 3

        1 2 3               результат: 1

6. Дан массив целых чисел x[1]..x[m+n], рассматриваемый как соединение двух его отрезков: начала x[1]..x[m] длины m и конца x[m+1]..x[m+n] длины n. Написать процедуру, которая не используя дополнительных массивов, переставляет начало в конец

7. Написать процедуру для нахождения производной многочлена. Исходный и результирующий многочлен задаются массивами коэффициентов

8. Написать процедуру перемножения двух многочленов заданных массивами коэффициентов, результатом является многочлен заданный массивом коэффициентов

9. Написать процедуру для сортировки массива x по невозрастанию методом пузырька

Даны два массива целых чисел упорядоченные по невозрастанию:

10. Содержащие одинаковый элемент. Написать функцию, находящую этот элемент

11. Написать функцию, находящую количество общих элементов

12. Написать процедуру, соединяющую их в один упорядоченный по невозрастанию массив

13. Написать процедуру, находящую их пересечение в виде упорядоченного по невозрастанию массива

14. Написать функцию, находящую количество различных элементов

Многомерные массивы и процедуры

Часть I

1) Одинаковы ли типы?

array [1..15,0..3] of char

array [1..15] of array [0..3] of char

2) Определите значение переменной y после выполнения следующей программы:

program massiv;

const N = 3;

type TMatrix = array[1..3, 1..3] of integer;

procedure test(var a: TMatrix);

begin

a[1, 1]:=4; a[1, 2]:=6; a[1, 3]:=3;

a[2, 1]:=1; a[2, 2]:=7; a[2, 3]:=2;

a[3, 1]:=8; a[3, 2]:=5; a[3, 3]:=4;

end;

var M: TMatrix;

y, i, j: integer;

begin

test(M);

M[1,1]:=0; y:=0;

for i:=1 to N do for j:=1 to N do y:=y+M[i, j];

end.

3) type   STR = array [1..20] of char;

MATR1 = array [1..10] of STR;

MATR2 = array [1..15,1..20] of char;

var A: MATR1;   B, C: MATR2; T: boolean;     X: STR;

a) Укажите тип переменных A, A [3], A [9][8], A [1,1], B, B [15], B [3,3], B [2][6]

b) Какие из указанных операций допустимы:

B:=C; B:=B+C;

T:=B<>C; A[1]:=A[8];

X:=A[3]; C[5]:=X;

C [5]:= C [1];

4) Напишите процедуру Input(A) для заполнения массива целых чисел A размером 10 x 10 следующим образом:

0 0 0... 0

0 1 0... 0

0 0 2... 0

...

0 0 0... 9

5) TYPE VECTOR = array [1..20] of integer;

    MATRIX = array [1..20] of VECTOR;

         MATRIX1 = array [1..20,1..20] of integer;

VAR A: MATRIX;

         X: VECTOR;

         B: MATRIX1;

a) Напишите процедуру Change(A, X), заменяющую нечетные строки матрицы А на Х.

b) Напишите процедуру Change(B,X), заменяющую четные столбцы матрицы B на X.

c) Напишите процедуру Move(A), меняющую местами 1 и 2 строки, 3 и 4,..., 19 и 20, используя массив X как вспомогательный буфер.

d) Напишите аналогичную процедуру для B.

Часть II

1) const n =10;

type matr = array[0..n, 0..n] of integer;

Напишите функцию Max(A: matrix): integer; определяющую максимальный элемент матрицы в заштрихованной области

1.	2.	3.	4.	5.
6.	7.	8.	9.	10.
11.	12.	13.	14.

2) Напишите логическую функцию TEST(A, k), принимающую значение True, если

1. Все элементы k-го столбца нулевые

2. Элементы k-го столбца упорядочены по возрастанию

3. k-я строка симметрична

4. Первый элемент k-й строки является максимальным в строке

5. Сумма элементов k-го столбца больше суммы элементов k-й строки

6. Все элементы k-й строки равны элементам 1-й строки

7. Сумма элементов k-го столбца больше суммы элементов побочной диагонали

8. Максимальный элемент k-й строки стоит в k-м столбце

9. Минимальный элемент k-го столбца равен нулю

10. Все элементы k-й строки совпадают с элементами к-го столбца

11. Минимальный элемент k-й строки равен максимальному элементу k-го столбца

12. k-я строка совпадает с k+1 (при k=10 совпадает с 1-й строкой)

13. Все элементы k-й строки есть в k-ом столбце

14. Или k-ый столбец или k-ая строка матрицы A – палиандромы

Строковый тип

Часть I

1) Написать программу, печатающую только строчные русские буквы, входящие в строку.

2) Текст задан строкой: var s: string;

a) Написать программу, которая выводит все слова, содержащие букву 'a';

b) Написать программу, которая выводит все слова, цифр в которых больше чем букв.

3) Составить функцию UpcaseCyr(W:string):string, преобразующую все буквы, входящие в строку W (латинские и кириллицу) в прописные.

Часть II

1) Текст задан строкой: var St: string

1. Напечатать все слова, отличные от Hello

2. Напечатать то слово, которое лексикографически (по алфавиту) предшествует всем другим словам

3. Напечатать текст, составленный из последних литер всех слов

4. Напечатать текст, составленный из средних литер всех нечетных слов

5. Напечатать все слова, содержащие удвоенное н ("нн")

6. Напечатать те слова, которые являются симметричными (например: казак, шалаш)

7. Напечатать все слова, удалив из них первую букву

8. Напечатать все слова, удалив из них последнюю букву

9. Напечатать все слова, удалив из них все последующие вхождения первой буквы

10. Напечатать все слова, удалив из них все предыдущие вхождения последней буквы

11. Напечатать все слова, удалив среднюю букву у слов нечетной длины

12. Напечатать все слова, перенеся их первую букву в конец

13. Напечатать все слова, перенеся их последнюю букву в начало

14. Напечатать все слова, содержащие только русские буквы

2) Написать функцию

function Test(word:string): boolean

принимающую значение True, если

1. Строка является словом

2. Первая буква строки входит в нее еще раз

3. Последнее слово строки входит в нее еще раз

4. Буквы строки упорядочены по алфавиту

5. Количество гласных (a, e, i, o, u) превосходит количество других символов

6. Количество заглавных букв в строке превосходит количество прописных

7. Количество русских букв в строке превосходит количество латинских

8. Строка составлена только из строчных русских букв

9. В строке больше букв, чем знаков

10. В строке есть восклицание (!) и вопрос (?)

11. Строка является символьным представлением натурального числа ("122", "34" и т.д.)

12. В строку входят литеры, содержащиеся в глобальной переменной W типа string

13. Строка является идентификатором

14. Строка является перевертышем

Тип Запись

Часть I

1) Определите значение переменной y после выполнения следующей программы и поясните, что она вычисляет:

program zapis;

const N = 3;

type TMyPoint = record

                                 x, y: integer;

end;

var p1, p2: TMyPoint;

y: real;

begin

p1.x:= 3; p1.y:= 6;

p2.x:= 7; p2.y:= 9;

y:= sqrt(sqr(p2.x - p1.x) + sqr(p2.y - p1.y));

end.

2) Ответьте на вопросы:

a) Верно ли, что все поля записи должны быть разных типов?

b) Могут ли названия полей записи совпадать с именами переменных, констант? С названиями полей других записей?

3) Опишите следующий объект в виде массива и в виде записи. Определите, какой тип более естественен для каждого из объектов:

a) обозначение поля шахматной доски (A5, H8,...);

b) комплексное число;

c) точка в 10-мерном пространстве.

4) type   complex = record re, im:real end;

         point = record x, y: real end;

var    z, w: complex;

         p: point;

         re: real;

Какие значения будут иметь переменные z, w, p, re после выполнения операторов:

with z do begin re:=0; im:=1 end;

w:=z; re:=2;

with z do re:=1;

with z, w do im:= -im;

with p do begin x:=re; y:=2 end;

5) type circle = record radius:real;

                               centre: record x,y:real end

                 end;

var C: circle;

Требуется получить круг С радиуса 2.5 с центром в точке(0, 1.8). Запишите операторы для решения этой задачи.

6) Напишите процедуры DP(d,p), преобразующую координаты точки на плоскости из декартовых координат d в полярные p, и PD(p,d), выполняющую обратные преобразования:

Type dekart = record x, y: real end;

    polar = record r, fi: real end;

7) Type Phone = 1000000..9999999;

     Aguant = record

                            Name: string[10];

                            Number: Phone;

                     end;

     Page = array[1..20] of Aguant;

     NoteBook = array ['A'..'Z'] of Page;

Считая, что на каждой странице записной книжки указаны фамилии, начинающиеся с одной буквы (индекса этой страницы), описать логическую функцию:

a) FindNumber (Nb, F, NP) – определяющую, есть ли в записной книжке Nb сведения о знакомом F, и если есть, то возвращающую номер его телефона NP;

b) FindName (Nb, F, NP) – определяющую, есть ли в записной книжке Nb сведения о знакомом c номером телефона NP, и если есть, то возвращающую его фамилию F.

8) Const N= 10;

Type RecData = record

                                 Key: LongInt;

                                 Data: String;

                            end;

         Table = array[1..N] of RecData;

Считая, что в таблице все записи имеют разные ключи, описать:

a) процедуру Sort (T), упорядочивающую записи таблицы Т по возрастанию их ключей;

b) логическую функцию Find (T, K, H), определяющую, есть ли в таблице Т (записи которой упорядочены по ключам) запись с ключом К, и если есть, присваивающую ее номер параметру Н.

Часть II

1) type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara);

  data = record

                  male: boolean; { пол: true - мужской, false - женский }

                  height:140..200 end; { рост }

         end;

  group = array[name] of data;

1. Опишите функцию FHeight (G), определяющую средний рост женщин из группы G

2. Опишите функцию MaxHeight (G), определяющую наибольший рост женщин из группы G

3. Опишите функцию Higher (G), определяющую имя самого высокого мужчины из группы G

4. Опишите функцию Lower (G), определяющую имя самой невысокой женщины из группы G

5. Опишите функцию Lower (G), определяющую имя самого невысокого мужчины из группы G

6. Опишите функцию MHeight (G), определяющую средний рост мужчин из группы G

7. Опишите логическую функцию Same (G), проверяющую, есть ли в группе G хотя бы два человека одного роста

8. Опишите логическую функцию SameMale (G), проверяющую, есть ли в группе G хотя бы два мужчины одного роста

9. Опишите логическую функцию Test (G), проверяющую, что в группе G самая высокая из женщин ниже самого высокого из мужчин

10. Опишите логическую функцию Test (G), проверяющую, что в группе G самая высокая из женщин ниже самого низкого из мужчин

11. Опишите логическую функцию Test (G), определяющую, есть ли среди женщин группы G женщины с ростом x

12. Опишите функцию Name (G), определяющую имя мужчины из группы G с ростом x

13. Опишите логическую функцию Test (G), проверяющую, есть ли в группе G хотя бы один мужчина, рост которого меньше минимального женского роста

14. Опишите функцию CountMaxHeight (G), определяющую количество женщин в группе G, имеющих наибольший рост

Типизированные файлы

Часть I

1) var f: file of integer;

  x, y: integer;

Пусть файл содержит для элемента – 3 и 7. Определить значение переменной y после выполнения операторов:

a) reset(f); read(f,y); if not eof(f) then read(f,y); if not eof(f) then read(f,y);   c) reset(f); y:=1; repeat     read(f,x);     y:=y*x until eof(f);

b) reset(f); y:=0; while not eof(f) do begin     read(f,x);     y:=y+x end;

2) var f: file of integer; i: integer;

Определить содержимое файла после выполнения следующих операторов:

a) rewrite(f); if eof(f) then write(f,1) else write(f,2); if eof(f) then write(f,3) else write(f,4);

b) rewrite(f); for i:=3 downto 1   do write(f, sqr(i));

3) type myfile = file of real;

Напишите функцию negative(f), подсчитывающую сумму отрицательных чисел в файле f типа myfile.

4) type myfile = file of integer;

Напишите логическую функцию Up(f), проверяющую, упорядочены ли по возрастанию элементы файла f типа myfile.

5) type myfile = file of char;

Описать логическую функцию Equal(f1,f2), проверяющую файлы f1 и f2 типа myfile на равенство.

Часть II

1) type myfile = file of char; Опишите процедуру:

1. add(f,c), добавляющую литеру с в начало файла f

2. addlast(f,c), добавляющую литеру с в конец файла f

3. replace(f,c), заменяющую последнюю литеру в файле f на литеру с

4. double(f), удваивающие в файле f все цифры

5. next(f), заменяющую в файле f каждую цифру на следующую по величине ('9' заменять на '0')

6. delete(f), удаляющую из файла f все литеры '+' и '-'

7. del(f), удаляющую из файла f предпоследний элемент, если он есть

8. firsts(f), оставляющую в файле f только первые вхождения каждой литеры

9. mid(f,m), присваивающую параметру m средний элемент файла f, если файл нечетной длины и символ '!', если файл четной длины

10. copy(f1,f2), присваивающую файлу f2 содержимое файла f1

11. copy char (f1,f2), присваивающую файлу f2 все латинские буквы файла f1

12. change(f), оставляющую в файле только цифры

13. mid1(f), присваивающую среднему символу файла f значение '1', если файл нечетной длины

14. delsp(f), удаляющую из файла f идущие подряд пробелы, оставляя из них только один

2) type student = record

                            name: string[10];

                            group: integer;

                            marks: array[1..5] of 2..5;

                   end;

     myfile = file of student;

Создайте файл, содержащий записи о 10 студентах из 3 групп.

1. Выведите на экран имена круглых отличников

2. Выведите на экран имена круглых двоечников

3. Выведите на экран номера групп, в которых нет троечников

4. Выведите на экран номера групп, в которых отличников больше, чем двоечников

5. Выведите на экран средний балл по каждому из 5 предметов

6. Выведите на экран средний балл по 1-му предмету в каждой из 3 групп

7. Выведите на экран оценки студента по имени x

(var st: student; st.name:= x)

8. Выведите на экран имена студентов, которые сдали 3-ий экзамен на 5

9. Выведите на экран максимальный балл по 2-му предмету в каждой из 3 групп

10. Выведите на экран имена студентов и их оценки из группы 1

11. Выведите на экран номера групп, в которых есть студенты по имени х

12. Выведите на экран средний балл студента по имени х

13. Выведите на экран средний балл студентов по всем группам

14. Выведите на экран номера групп, в которых последний экзамен сдали все студенты

Текстовые файлы

Часть I

1) Эквиваленты ли типы text и file of char? Одинаковы ли длины строк в файле? Допустимы ли пустые строки?

2) var k: integer;

  t: text;

Допустимы ли операторы:

read(t, k);                 write(t, k);

3) Напишите процедуру TypeText (f), выводящую на экран построчно содержимое текстового файла f.

4) Напишите процедуру Compress(f1,f2), переписывающую содержимое файла f1 в f2, но без пустых строк.

5) Напишите функцию Max(f) для нахождения максимального из вещественных чисел, записанных в текстовом файле test. txt.

Часть II

1) Напишите функцию, которая:

1. Находит количество пустых строк в файле

2. Находит максимальную длину строк в файле

3. Находит количество непустых строк в файле

4. Находит количество строк в файле, содержащих четное количество литер

5. Находит количество строк в файле, начинающихся с буквы "v"

6. Находит количество строк в файле, заканчивающихся буквой "d"

7. Находит количество строк в файле, состоящих из одинаковых литер

8. Находит количество строк в файле, начинающихся и заканчивающихся одной и той же литерой

9. Находит минимальную длину строк в файле

10. Определяет, сколько раз в файле встретилось слово "begin"

11. Определяет, сколько раз в файле встретилось слово "end"

12. Определяет, сколько раз в файле встречались пятибуквенные слова

13. Определяет, сколько раз в файле встречались слова – палиандромы

14. Определяет, количество различных цифр, встречающихся в файле

2) Напишите процедуру:

1. AlignLeft(f), которая переформатирует файл f так, что все строки в нем будут выровнены по левому краю

2. AlignRight(f), которая переформатирует файл f так, что все строки в нем будут выровнены по правому краю (ширина строки равна константе Width = 80)

3. AlignCenter(f), которая переформатирует файл f так, что все строки в нем будут выровнены симметрично по центру (ширина строки равна константе Width = 80)

4. Upper(f), которая переформатирует файл f так, что все строки в нем будут содержать только прописные (заглавные) буквы

5. Lower(f), которая переформатирует файл f так, что все строки в нем будут содержать только строчные буквы

6. SeekConstant(f), которая находит в файле, содержащем текст программы на Паскале, идентификаторы констант

7. SeekVar(f), которая находит в файле, содержащем текст программы на Паскале, идентификаторы переменных

Ссылочные типы

Часть

1) type ref = ^integer;

var p, q: ref;

Пусть переменные p и q имеют значения, показанные на рисунке. Ответить на следующие вопросы:

a) Что является значением переменной p: ссылка на объект (переменную) целого типа или сам этот объект?

b) Что обозначает переменная p^: ссылку на объект целого типа, сам этот объект или число 5?

c) Каковы типы переменных p и p^?

d) Что будет выведено на печать в результате выполнения следующих операторов?

p^:=q^;

if p=q then p:=nil else if p^=q^ then q:=p;

if p=q then q^:=4;

WriteLn(p^,q^);

2) type D = record

                  a: boolean;

                  b,c: ^real;

            end;

var r: ^D;

Пусть переменная r имеет значение, показанное на рисунке Нарисовать структуру значения переменной r после выполнения следующих операторов:

if r^.b<>nil then r^.c:=r^.b;

r^.b^:=r^.c^-1.4;

r^.a:=r^.b=r^.c;

3) var p,q: ^integer;

  r: ^ char;

Какие из следующих операторов неправильные и почему?

a) p:=q;	b) q:=p^;	c) if r<>nil then r^:=nil^;
d) q:=r;	e) p^:=nil;	f) if q>nil then q^:=p^;
g) p:=nil;	h) r^:=p^;	i) if q=p then write(q);
j) r:=nil;	k) q^:=ord(r^);	l) if q<>r then read(r^);

4) type A = ^char;

  B = record

              f1: char;

              f2: A;

         end;

var p: ^B;

  q: A;

Нарисовать структуру значений переменных p и q после выполнения следующих операторов:

new(q); q^:='7';

new(p); p^.f1:=succ(q^); p^.f2:=q;

5) type chain = ^elem;

  elem = record

                  data: integer;

                  link: chain;

              end;

var p, q: chain;

Нарисовать структуру значений переменной p после выполнения операторов:

a) new(p); p^.data:=4; p^.link:=nil;

b) new(p); p^.data:=7; p^.link:=p;

c) new(q); q^.data:=2; q^.link:=nil;

new(p); p^.data:=1; p^.link:=q;

d) new(p); p^.data:=6; new(p^.link); p^.link^:=p^;

6) Описать переменную p (и, если надо, вспомогательные переменные) и выписать операторы, присваивающие ей указанные значения

a)
 

b)  

7) Выписать операторы, которые преобразуют значение переменной p следующим образом.

Исходное состояние:

a)
 

b)

c)

8) type ref = ^ real;

vector = array[1..10] of ref;

Напишите процедуру Input(x), считывающую числа с устройства Con и помещающую их в кучу (адреса будут хранится в элементах вектора x). Напишите процедуру Output(x), выводящую на устройство Con числа, которые расположены по адресам, хранящимся в элементах вектора x.

Часть II

1) type ref = ^ real;

     vector = array[1..10] of ref;

1. Описать функция max (x) для нахождения наибольшего из чисел, на которые ссылаются элементы вектора x

2. Описать функция min(x) для нахождения наименьшего из чисел, на которые ссылаются элементы вектора x

3. Описать функция s um(x) для нахождения суммы всех чисел, на которые ссылаются элементы вектора x

4. Описать функцию a verage(x), значением которой является среднее арифметическое всех чисел, на которые ссылаются элементы вектора x

5. Описать функцию neg1(x), значением которой является первый из элементов вектора x, ссылающихся на отрицательные числа, или nil, если таких элементов нет

6. Описать функцию zero1(x), значением которой является первый из элементов вектора x, ссылающихся на число 0, или nil, если таких элементов нет

7. Описать логическую функцию ifzero(x), которая проверяет, есть ли в векторе x хотя бы одна ссылка на число 0

8. Описать логическую функцию ifodd1(x), которая проверяет, есть ли в векторе x хотя бы одна ссылка на нечетное число

9. Описать логическую функцию ifodd(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x, нечетные

10.Описать логическую функцию same(x), которая проверяет, есть ли в векторе x хотя бы две одинаковые ссылки

11.Описать процедуру unique(x), которая в векторе x все элементы, ссылающиеся на равные числа, заменяет на первый из этих элементов

12.Описать процедуру unique0(x), которая в векторе x все элементы, ссылающиеся на равные числа, заменяет на 0

13.Описать логическую функцию ifsort (x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x расположены в порядке возрастания

14.Описать логическую функцию ifsort 1(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x расположены в порядке убывания

2) type Link = ^Node;

     Node = record

                     X: integer;

                     Next: Link;

     end;

var L: Link;

Найти среднее арифметическое элементов непустого списка L.

 

 

Подписано в печать __.__.2011. Формат 60х90 1/16. Усл. печ. л. 2.

Тираж ___ экз. Заказ № ___.

 

 

Издательство федерального государственного бюджетного образовательного учреждения высшего профессионального образования

«Тюменский государственный нефтегазовый университет».

625000, Тюмень, ул. Володарского, 38.

 

Отдел оперативной полиграфии издательства.

625039, Тюмень, ул. Киевская, 52