Дана матрица А(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
Может быть и неправильно, проверь при переписывании
4) 8 бит * 64 символа * 32 строки * 4 страницы = 65 536 бит или 8 Кбайт
5) BEGIN
6) 8 символов
Var n,i,s:integer;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 30
Var day:byte;
begin
randomize;
day:=random(24);
case day of
5..11:writeln('Доброго утра');
12..17:writeln('Доброго Дня');
18..22:writeln('Доброго Вечера');
23, 1..4:writeln('Доброй ночи');
end;
writeln(day);
<span> end. </span>