Дана матрица А(4, 4)=((54, 81, 19, 43),(3, -44, 42, 51),( 76, 5, 29, -24),( 94, -92, -69, 28)). Найти в матрице максимальный эле
Волчий
A=<span>[[54, 81, 19, 43],[3, -44, 42, 51],[ 76, 5, 29, -24],[ 94, -92, -69, 28]]
maxi=A[0][0]
for i in range(4):
for j in range(4):
maxi=max(maxi,A[i][j])</span>
for i in range(4):
for j in range(4):
if i==j:
A[i][j]=A[i][j]-maxi
Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Project1;
const n=10;
var i,sum:integer;
A:array [1..n] of integer;
begin
for i:=1 to n do begin
write('введите A[',i,']'); readln (A[i]);
end;
writeln;
sum:=0;
for i:=1 to n do
if A[i]<0 then begin
writeln ('A[',i,']'); sum:=sum+A[i];
end;
writeln ('Сумма отрицательных элементов =',sum);
end.
Объяснение:
Обычная задачка на минимум
<span>сonst n=7;
var i:byte;
c:array[1..n] of real;
min:real;
begin
for q:=1 to n do read(c[q]);
min:=c[q];
for q:=2 to n do
if min>c[q] then min:=c[q];
write(min);
<span>end..</span></span>
В ячейки D2 - D4 необходимо вставит формулу СРЗНАЧА(B2:C2) Решение в файле
Функция на паскале.
Использовал векторные произведения, т.е. удвоенных площади треугольников