1) Номера букв
с начала алфавита - 16,5,20,25,17
с конца алфавита - 18,29,14,9, 17
Сумма номеров для каждой буквы 34.
в - 3+31, ц -24+10. И это для любой буквы
2) игра в города
Волгодонск, Калуга
Мадана это медведь на юге
Если имеется ввиду Excel, то там возможно 3 вида ссылок: относительные (записываются в виде A1, A5:C2), абсолютные (в виде $A$5, $A$4:$D$7) и смешанные ($A6, D$5:$C2).
Относительные ссылки автоматически перестраиваются при вставке или удалении строк/столбцов/ячеек, абсолютные - всегда указывают на ячейку с указанным адресом, даже если было добавлена/удалена строка/столбец/ячейка, смешанные сохраняют своё первоначальное значение в позиции, перед которой стоит знак $ и перестраивают только то значение, перед которым нет $.
Program Project1;
var m:array [0..19] of integer; i:integer;
begin
for i:=0 to 19 do begin
m[i]:=20-Random(30);
if m[i]<0 then m[i]:=m[i]*-1;
writeln(m[i]);
end;
readln;
end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.