Результаты выполнения:

Vvedite kolichestvo strok i stolbcov kvadratnoy matrici

2

Vvedite element 1 stolbca 1

3

Vvedite element 1 stolbca 2

3

Vvedite element 2 stolbca 1

1

Vvedite element 2 stolbca 2

5

Nomera strok elementi kotorix delatsa na 3 bez ostatka:

1

Vvedite kolichestvo strok i stolbcov kvadratnoy matrici

3

Vvedite element 1 stolbca 1

3

Vvedite element 1 stolbca 2

66

Vvedite element 1 stolbca 3

9

Vvedite element 2 stolbca 1

5

Vvedite element 2 stolbca 2

7

Vvedite element 2 stolbca 3

8

Vvedite element 3 stolbca 1

9

Vvedite element 3 stolbca 2

0

Vvedite element 3 stolbca 3

-9

Nomera strok elementi kotorix delatsa na 3 bez ostatka:

1

Задание №3: Подготовить программу, в которой с помощью процедур находятся наибольший и наименьший элементы вещественного числового массива размерностью N×M, а также индексы этих элементов

Схема алгоритма:

a[u,i]<naim

Начало

Конец

Ввод элементов матрицы

Начало

Начало

Ввод n и а

Ввод элементов Наибольшее, наименьшее Основная программа

m1=1;m2=1;m3=1;m4=1naib=a[1,1];naim=a[1,1]

u=1, 1, t

Ввод элементов

Наибол.,наимен

i=1, 1, s u=1, 1, t

Вывод max и min

i=1, 1, s

нет

Конец

naim=a[u,i];m3=u;m4=i

Конец цикла да

a[u,i]>naib

naib=a[u,i];m1=u;m2=i

Конец цикла

нет

да

Конец

Текст программы:

Program lab5_3;

Type

matrix=array[1..20, 1..20] of real;

Var

a,s1,s2,s3,s4,n:integer;

M:matrix;

min,max:real;

Procedure vvod(t,s:integer; var A:matrix);

Var

i,u:integer;

Begin

For u:=1 to t do

For i:=1 to s do

Begin

Writeln('Vvedite element ',u,' stolbca ',i);

Read(a[u,i]);

end

End;

Procedure naimnaib(t,s:integer; A:matrix; Var naib,naim:real; Var m1,m2,m3,m4:integer);

Var

i,u:integer;

Begin

m1:=1;

m2:=1;

m3:=1;

m4:=1;

naib:=a[1,1];

naib:=a[1,1];

For u:=1 to t do

For i:=1 to s do

Begin

if a[u,i]<naim then

Begin

naim:=a[u,i];

m3:=u;

m4:=i;

end;

if a[u,i]>naib then

Begin

naib:=a[u,i];

m1:=u;

m2:=i;

end

end;

end;

Begin

Writeln('Vvedite kollichestvo strok matrici');

Read(n);

Writeln('Vvedite kollichestvo stolbcov matrici');

Read(a);

vvod(n, a, M);

naimnaib(n, a, M,max,min,s1,s2,s3,s4);

Writeln(‘max=’,max,’ №’,s1,’_’,s2);

Writeln(‘min=’,min,’ №’,s3,’_’,s4);

End.