Задания для самостоятельного выполнения.

Вариант		Интервал	Вариант		Интервал
		[0, π/2]			[1, 5]
		[π/2, π]			[2, 6]
		[0, π/2]			[1, 3]
		[0, 5]			[0, 1]
		[1, 6]			[0, 1]
		[2, 6]			[0, 5]
		[1, 2]			[1, 4]
		[0, 3]			[2, 4]
		[π/2, π]			[0, 4]
		[0, 1]			[0, 5]
		[0, 2]			[2, 4]
		[0, 2]			[1, 2]

Тема 10. Массивы.

Написать программу обработки массива в соответствии c условием задания. Обработка массива должна быть реализована в подпрограмме. Массив сформировать в главной программе с помощью функции Random (массив случайных чисел) в заданном диапазоне: (0; d) или (-d; d]. Результат обработки вывести в главной программе.

Пример 1. Сформировать массив A[n x m] случайных чисел. Найти минимальное значение массива A_min и его координаты i_min, j_min, при условии, что оно больше заданного числа a_z. Диапазон изменения элементов массива [-d; d ).

program pr10;

uses crt;

const n = 7; m = 8;

d = 100;

type mas = array [1..n, 1..m] of integer;

var A: mas;

i, j, imin, jmin: byte;

az, amin: integer;

procedure obrmas(n1, m1: byte; A1: mas; d1: byte; az1: integer; var amin1: integer; var imin1, jmin1: byte);

var i, j: byte;

begin

amin1:= d1 + 1;

for i:= 1 to n1 do

for j:= 1 to m1 do

if (A1[i, j] < amin1) and (A1[i, j] > az1)

then begin

amin1:= A1[i, j]; imin1:= i; jmin1:= j

end

end;

begin clrscr;

randomize;

writeln('Исходный массив:');

for i:=1 to n do begin

for j:=1 to m do begin

A[i,j]:= random(2*d);

A[i,j]:= -d + A[i,j];

write(A[i,j]:6)

end;

writeln

end;

write('Введите заданное число az -> ');

readln(az);

obrmas(n, m, A, d, az, amin, imin, jmin);

writeln('Результаты:');

writeln('Amin = ', amin:6);

writeln('imin = ', imin:6);

writeln('jmin = ', jmin:6);

readkey

end.