Составить программы в паскале и блок схемы) на тему Составление, ввод, отладка и выполнение программ, использующих двумерные массивы. Подпрограммы

const

n = 10;

var

x: array[1 ... n] of integer;

y: array[1 ... n, 1 ... n] of real;

i, j: integer;

begin

Randomize;

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

for i : = 1 to n do

begin

x[i] : = Random (100) + 1;

Write (x[i]:3)

end;

Writeln (#13#10, 'Результирующий массив');

for i : = 1 to n do

begin

for j : = 1 to n do

begin

y[i, j] : = ln (abs (x[i] * x[j]));

Write (y[i, j]:7:4)

end;

Writeln

end

end.

const

m = 10;

n = 15;

var

x: array[1 ... m, 1 ... n] of real;

i, j: integer;

s, t: real;

begin

Randomize;

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

s : = 0;

for i : = 1 to m do

begin

for j : = 1 to n do

begin

x[i, j] : = 3 * Random - 1.5;

Write (x[i, j]:8:4);

t : = cos (x[i, j]);

s : = s + t * sqr (t)

end;

Writeln

end;

Writeln ('Сумма кубов косинусов равна ', s:0:6)

end.

const

m = 10;

n = 15;

l = 10;

var

x: array[1 ... m, 1 ... n] of real;

a: array[1 ... l] of real;

i, j, k: integer;

s: real;

begin

Randomize;

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

s : = 0;

for i : = 1 to m do

begin

for j : = 1 to n do

begin

x[i, j] : = 3 * Random - 1.5;

Write (x[i, j]:8:4);

s : = s + sqr (sin (x[i, j]))

end;

Writeln

end;

Writeln ('** * Массив а * **');

for k : = 1 to l do

begin

a[k] : = s / exp (k + 1);

Write (a[k]:8:4)

end

end.