В АВС паскале пишет ошибка: массив имеет другое количество размерностей ! Эта пример-задача из учебника 10 кл Семакин стр 179. program Example_2;
type month=array[1..12] of real;
year=array[2001..2010] of month;
var Tabl: year;
s:array[2001..2010] of real;
i,j,k: integer;
begin
for i:=2001 to 2010 do
for j:=1 to 12 do
begin
write(j:2, '.', i:4, ': ');
readln (Tabl[i,j])
end;
for i:=2001 to 2010 do
begin
s[i]:=0;
for j:=6 to 8 do
s[i]:=s[i]+Tabl l[i,j];
s[i]:=[i]/3
end;
k:=2001;
for i:=2002 to 2010 do
if s[i]>s[k] then k:=i;
writeln('ñàìîå òåïëîå ëåòî áûëî â ',k, '-ì ãîäó')
end.
но у меня извиняйте ,как могу
Объяснение:
n,m=map(int,input().split())
tree=[]
count_tree=0
for i in range(m):
u,v = map(int,input().split())
not_in_tree = True
for tr in tree:
if u in tr:
if v not in tr:
tr.append(v)
count_tree +=1
not_in_tree=False
break
elif v in tr:
if u not in tr:
tr.append(u)
count_tree +=1
not_in_tree=False
break
if not_in_tree:
tree.append([u,v])
count_tree +=2
print(len(tree) + (n-count_tree))
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив [',n,',',n,'] ***');
var a:=MatrRandom(n,n,-10,10);
a.Println(4); Writeln(5*a.ColCount*'-');
var k,l:integer;
Write('Введите L,K: '); Read(l,k);
var lim:=a[l-1,k-1];
var s:=a.Rows.SelectMany(x->x).Where(x->x<lim).Sum;
Writeln('Искомая сумма равна ',s)
end.
Пример
Количество строк (столбцов) в массиве: 6
*** Исходный массив [6,6] ***
-4 -8 -7 -3 -6 -4
2 -9 1 9 -6 6
-9 -2 -8 -3 -1 -4
-1 -9 -3 -7 3 -3
5 9 -6 8 -1 -10
-1 -1 -5 -8 -9 4
Введите L,K: 2 3
Искомая сумма равна -138