Отчет по практике: Язык программирования Pascal

a [i,j]: =a [i+2,j] ;

for i: =1 to n-2 do

begin

for j: =1 to m do

write (a [i,j]: 3);

writeln;

end; end;

readln;

end.

3.6.5 Результат работы программы

3.7 Решение задачи

3.7.1 Постановка задачи

Дан одномерный массив целых чисел произвольной длины. Заполните массив случайными числами до 100. Используя, оператор выбора, создайте меню, в котором при нажатии на клавишу производятся следующие действия:

1 - вычислить среднее геометрическое четных элементов массива;

2 - найти количество делителей максимального числа;

3 - вставить в массив два элемента с данными значениями: первый после минимального элемента, второй - перед минимальным элементом.

3.7.2 Таблица идентификаторов

№	Переменные	Тип	Значение
1	a	array	Заполнение одномерного массива
2	Max	integer	Максимальный элемент
3	Min	integer	Минимальный элемент
4	i	integer	Параметр цикла
5	N	integer	Размерность массива
6	k	integer	Количество делителей
7	m	integer	Выбор действия
8	s	Real	среднее геометрическое четных элементов массива
9	v, c	integer	два элемента вставляемые в массив
10	k1	integer	Номер позиции перед (после) которой вставляем элемент
11	f	integer	Количество элементов, которые делятся на 2 без остатка
12	d	integer	Произведение всех элементов, которые делятся на 2 без остатка

3.7.3 Блок-схема

3.7.4 Программа

uses crt;

Var a: array [1. .100] of integer;

n, i,m,min,max,k,f,d,k1,c,v: integer;

S: real;

begin

clrscr;

randomize;

writeln ('введите разм. массива');

readln (n);

for i: =1 to n do

begin

a [i]: =random (101);

write (a [i]: 3);

end;

writeln;