Uses WinCrt;. Const n = 5; {задание размера массива именованной константой}

Const n = 5; {задание размера массива именованной константой}

Type TMass=Array [1..n, 1..n] Of Integer; {описание нового типа}

Var i, j: Word;

summa, v_min, v_max: Integer;

massiv: TMass;

Function Summa_max(nn: Integer; AA: TMass): Integer;

Var i, max_1, max_2: Integer;

Begin

max_1: =AA[1, 1];

For i: =2 To nn Do

If (AA[i, i]> max_1)

Then max_1: =AA[i, i];

max_2: =AA[1, nn];

For i: =2 To nn Do

If (AA[i, nn-i+1]> max_2)

Then max_2: =AA[i, nn-i+1];

Summa_max: =max_1+max_2;

End; {функции Summa_max}

Begin {головной программы}

Randomize; {запуск генератора случайных чисел}

WriteLn('Лабораторная работа №7_1');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

WriteLn('Задайте диапазон случайных чисел');

Write('v_min=');

ReadLn(v_min);

Write('v_max=');

ReadLn(v_max);

For i: =1 To n Do {заполнение массива случайными числами}

For j: =1 To n Do

massiv[i, j]: =Random(v_max-v_min + 1) + v_min;

WriteLn;

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

For i: =1 To n Do {вывод на экран исходного массива}

Begin

For j: =1 To n Do

Write(massiv[i, j]: 5);

WriteLn;

End;

WriteLn;

summa: =Summa_max(n, massiv);

WriteLn('Сумма максимальных элементов диагоналей: ', summa);

End.

3.5. На языке Си:

#include < stdio.h>

#include < conio.h>

#include < math.h>

#include < time.h>

// прототипы функций

void vorm_mass(int nn, int mass_max, int mass_min, int mass[nn][nn]);

int summa_max(int nn, int mass[nn][nn]);

Int main()

{

Int i, j, n, massiv_min, massiv_max, summa;

printf(" \nЛабораторная работа №7_1");

printf(" \nВариант №0");

printf(" \nПО-11-1");

printf(" \nПупкин Василий\n");

printf(" \nВведите нижнюю границу диапазона: ");

scanf(" %d", & massiv_min);

printf(" \nВведите верхнюю границу диапазона: ");

scanf(" %d", & massiv_max);

printf(" \nВведите размер массива: ");

scanf(" %d", & n);

int massiv[n][n];

printf(" \nИсходный массив: \n");

Vorm_mass(n, massiv_max, massiv_min, massiv);

for (i=0; i< n; i++)

{

for (j=0; j< n; j++)

printf(" %5d", massiv[i][j]);

printf(" \n");

}

printf(" \n");

summa = summa_max(n, massiv);

printf(" \nСумма максимальных элементов диагоналей: %d", summa);

Return 0;

}

//описание функций

// 1. формирование массива

void vorm_mass(int nn, int mass_max, int mass_min, int mass[nn][nn])

{

Int i, j, m;

time_t t; // текущее время для инициализации

// генератора случайных чисел

srand((unsigned) time(& t)); // инициализация генератора

// случайных чисел

m = mass_max-mass_min + 1;

// получение случайного числа в диапазоне

// от mass_min до mass_max

for (i=0; i< nn; i++)

for (j=0; j< nn; j++)

mass[i][j]=rand()% m + mass_min;

}

// 2. определение суммы максимальных элементов диагоналей массива

int summa_max(int nn, int mass[nn][nn])

{