{
	Составить программу преобразования двумерных массивов.
	Получить вещественную матрицу А(7, 7), первая строка которой задается формулой
	а[1, j] = 2*j + 3 (j = 1,...,7)
	вторая строка задается формулой
	а[2, j] = i - (3 / (2 + 1/j)) (j = 1,...,7)
	а каждая следующая строка есть сумма двух предыдущих.
	Определить в четных столбцах матрицы А число элементов, не принадлежащих интервалу
	(5, 10), а в седьмой строке определить произведение отрицательных элементов.
}
uses
	crt;
const
	Maxi = 7;
var
	A: Array[1..Maxi, 1..Maxi] of real;
	count, i, j: byte;
	p: real;
begin
	clrscr;
	for j:=1 to Maxi do begin {first line}
		A[1, j] := 2*j + 3;
		write(A[1, j]:8:3);
	end;
	writeln;
	for j:=1 to Maxi do begin {second line}
		A[2, j] := 2 - (3 / (2 + 1/j)); {may be replaced by: j - (3 / (2 + 1/j))}
		write(A[2, j]:8:3);
	end;
	writeln;
	for i:=3 to Maxi do begin
		for j:=1 to Maxi do begin
			A[i, j] := A[i-2, j] + A[i-1, j];
			write(A[i, j]:8:3);
		end;
		writeln;
	end;

	count := 0;
	for i:=1 to Maxi do {count of non (5, 10)}
		for j:=1 to (Maxi div 2) do
			if ((A[i, 2*j] <= 5) or (A[i, 2*j] >= 10)) then
				inc (count);

	p := 1;
	for j:=1 to Maxi do
		if (A[Maxi, j] < 0) then
			p := p * A[Maxi, j];

	writeln('Result:');
	writeln('  count = ', count);
	if (p = 1) then
		writeln('  Not found negative elements.')
	else
		writeln('  p = ', p);
	writeln('Done. Press any key...');
	readkey;
end.