Дана матрица А(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
В чем именно проблема?
Рисуешь таблицу, первый столбик станции (Откуда и докуда) , второй столбик время в пути. Я так понял задание
Дания:) Написать в OnPaint
Canvas.FillRect(Rect(10, 10, 3 * 200 + 10, 2 * 200 + 10));
Canvas.Brush.Color := clWhite;
<span>Canvas.FillRect(Rect(140, 10, 190, 2 * 200 + 10));
</span>Canvas.FillRect(Rect(10, round(2 * 200 / 2) - 25, 3 * 200 + 10, round(2 * 200 / 2) + 25));
<span>program matrica;
Var
i,j,n:integer;
a:array[1..50,1..50] of integer;
Begin
Writeln('Введите размерность матрицы:');
Readln(n);
for i:=1 to n do
begin
Writeln('Ввод ',i,' строки');
for j:=1 to n do
begin
Write('A[',i,',',j,']=');
Readln(A[i,j]);
end;
end;
writeln;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
for i:=1 to n do
for j:=i to n do
if a[i,j]=a[j,i] then
Writeln(a[i,j],' i=',i,' j=',j);
End.</span>
Ответ:
1. Имя qt. Элементов 19. Тип данных real (вещественные числа)
2. Значение 15, индекс 1
3. а: array [1..20] of integer
4. a[i]:=random (31)
5. 6, 9, 14, 21, 30
Объяснение:
1. 23-5+1=24-5=19
2. А[4]=15 А[1]=26
5.
a[1]=5+1*1=5+1=6
a[2]=5+2*2=5+4=9
a[3]=5+3*3=5+9=14
a[4]=5+4*4=5+16=21
a[5]=5+5*5=5+25=30