1. Описать переменную индексируемого типа(двухмерный масив).
2. Написать процедуру для заполнения данного массива значениями в соответствии с вариантом.
3. Создать новою переменную индексируемого типа (одномерный массив) и процедуру получеными в соответствии с вариантами задания;
4. Написать процедуру для преобразования элементов двумерного массива таким образом, что бы в главной программе имеет доступ к его первоначальному и конечному значению;
8x8
Значения одномерного массива состоят из суммы четных значений элементов столбцов двухмерного массива
Уменьшить значение всех елементов массива на среднее арифметическое значений элементов его побочной диагонали
Уловее замудреное мальохо(((
uses crt;
const
n = 8;
m = 8;
type
typearray = array[1..n, 1..m] of real;
var
arr: typearray;
arr3: typearray;
i, j,s,k: integer;
arr1: array[1..n] of real;
procedure zapolnenieI;
begin
for i := 1 to n do
for j := 1 to m do
arr[i, j] := (random(15) - 5);
for i := 1 to n do
begin
for j := 1 to m do
write(arr[i, j]:8:2);
writeln;
end;
end;
procedure zapolnenieII;
begin
for i := 1 to n do
arr1[i] := 1;
for i := 1 to n do
for j := 1 to m do
if arr[i, j] mod 2 = 0 then arr1[i] := arr1[i] + arr[i, j];
for i := 1 to n do write(arr1[i]
5, ' ');
writeln;
end;
k:=0;
procedure SrednAriF;
begin
s:=0;
for i := 1 to n do
for j := 1 to m do
for i:=1 to n do
s:=s+x[i,n-i+1];
k:=k+1;
end;
s:= s/k;
procedure change;
begin
for i := 1 to n do
for j := 1 to m do
for i:=1 to n do
arr3[i, j] := arr3[i, j] - s;
for i := 1 to n do
begin
for j := 1 to m do
write(arr3[i, j]:8:2);
writeln;
end;
end;
begin
clrscr;
randomize;
filing;
arr3 := arr;
zapolnenieII;
change;
end.