Задание 3. элементов матрицы на элемент, значение которого равно разности между

21.а) Дана матрица А(n,n). Получить новую матрицу путём деления всех

элементов матрицы на элемент, значение которого равно разности между

максимальным и минимальным элементами.

program zadanie_3;

Var

A,B: array[1..10,1..10] of real;

i,j,n: integer;

f,min,max: real;

Begin

write('ранг=');

readln(n);

for i:=1 to n do

for j:=1 to n do begin

writeln('Введите элемент А',i:3,j:3);

readln(A[i,j])

end;

min:= A[1,1];

max:= A[1,2];

for i:=1 to n do

for j:=1 to n do begin

if A[i,j]>max then max:=A[i,j];

if A[i,j]<min then min:=A[i,j]

End;

f:= max-min;

writeln('Новая матрица ');

for i:=1 to n do begin

for j:=1 to n do begin

B[i,j]:=A[i,j]/f;

write(i:2,',',j,'=', B[i,j],' ')

end;

writeln

end;

readln

End.

21 б). Даны целые числа N,A₁,A₂,A₃,... A_N. Найти количество и сумму тех членов последовательности, которые делятся на 5 ине делятся на 7.

program kr1;

uses crt;

Const

n=15;

A: array[1..15] of integer=(3,7,35,23,25,70,10,8,15,14,60,42,105,5,32);

var Match,Cycle,Sum: integer;

Begin

Clrscr;

Match:=0;

Sum:=0;

for Cycle:=1 to n do

Begin

if (A[Cycle] mod 5=0) and (A[Cycle] mod 7 <> 0) then

Begin

Match:= Match+1;

Sum:= Sum+A[Cycle]

End

End;

writeln('Количество чисел = ',Match);

writeln('Их сумма = ',Sum);

repeat until keypressed

End.

в) Дано число. Определить сколько положительных элементов содержит матрица

[ A_ij ] i, j = 1... N, если A_ij=sin(i+j/2).

program kr1b;

uses crt;

Const

n=7;

var A: array[1..n,1..n] of real;

Match,i,j: integer;

Begin

clrscr;

Match:=0;

for i:=1 to n do for j:=1 to n do

A[i,j]:=Sin(i+j/2);

{Вывод на экран массива}

for i:=1 to n do

Begin

for j:=1 to n do write(round(A[i,j]*10),' ');

writeln

End;

{Подсчёт количества положительных элементов}

for i:= 1 to n do for j:= 1 to n do

if A[i,j]>0 then Match:= Match+1;

Writeln('Количество положительных элементов массива = ',Match);

repeat until keypressed

End.