Программа на ЯВУ ТР7. 0. Write('введите кол-во сторок n=');

PROGRAM ZADACHA3;

CONST

N1=20;

M1=25;

TYPE

MAS2=ARRAY[1..N1,1..M1] OF REAL;

MAS1=ARRAY[1..N1] OF REAL;

VAR

K:MAS2;

T:MAS1;

C,S:REAL;

I,J:INTEGER;

N,M:INTEGER;

BEGIN

{ШАГ 1-2}

WRITE('ВВЕДИТЕ КОЛ-ВО СТОРОК N=');

READ(N);

WRITE('ВВЕДИТЕ КОЛ-ВО СТОЛБЦОВ M=');

READ(M);

FOR I:=1 TO N DO

FOR J:=1 TO M DO

BEGIN

WRITE('K[',I,',',J,']= ');

READ(K[I,J]);

END;

{------------------------------------------}

{ШАГ 2-3}

FOR I:=1 TO N DO

BEGIN

S:=0;

FOR J:=1 TO M DO

S:=S+K[I,J];

T[I]:=S/M;

END;

{------------------------------------------}

{ШАГ 3-4}

FOR I:=1 TO N DO

WRITELN('T[',I,']=',T[I]:6:2);

{------------------------------------------}

{ШАГ 4-5}

FOR I:=1 TO N DIV 2 DO

BEGIN

C:=T[I];

T[I]:=T[N+1-I];

T[N+1-I]:=C;

END;

{------------------------------------------}

{ШАГ 6-7}

FOR I:=1 TO N DO

WRITELN('T[',I,']=',T[I]:6:2);

END.

Задача 4

Даны матрицы F(N,N) и D(N,N). Поменять местами главные диагонали матриц F и D. Затем найти максимальный элемент под побочной диагональю матрицы F и минимальный элемент всей матрицы D и поменять их местами.

Тестовый пример

Ввод:

Размерность массива N=3.

Матрица F: 13 –15 8 Матрица D: 14 10 18

6 0 3 16 2 13

-1 8 5 -1 18 -5

Вывод:

После смены диагоналей:

Матрица F: 14 –15 8 Матрица D: 13 10 18

6 2 3 16 0 13

-1 8 -5 -1 18 5

Максимальный элемент матрицы F: 8

Минимальный элемент матрицы D: -1

После смены местами максимального и минимального элементов:

Матрица F: 14 –15 8 Матрица D: 13 10 18

6 2 3 16 0 13

-1 -1 -5 8 18 5

Блок-схема:

Пошаговую детализацию предлагается выполнить студентам самостоятельно.

Дата добавления: 2015-07-11