Var m:array[1..9,1..9] of integer;
s,j,i:integer;
begin
randomize;
s:=0;
For i:=1 to 9 do
For j:=1 to 9 do
m[i,j]:=random(100)+1;
For i:=1 to 9 do
For j:=1 to 9 do
s:=s+m[i,j];
writeln('Сумма элементов двумерного массива размерностью 9*9 = ',s);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=ArrRandom(ReadInteger('n='),-50,50); c.Println;
var imax:=c.IndexMax;
c:=c?[:imax]+c?[imax+1:]; c.Println
end.
<u>Пример</u>
n= 15
-5 -23 44 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
-5 -23 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
<span>После смерти великого русского химика Д.И. Менделеева в его халате нашли записку, где было всего четыре быквы: "э", "м", "м", "н". Вначале предположили, что это зашифрованное имя тайной возлюбленной, но все оказалось гораздо прозаичнее. Что же стоит за этими буквами, если первая "м" означает можно, а "н" - нельзя?</span>
Чтобы принтер мог пропечатать всё. Если бы отступа не было, часть текста была бы не видна или принтер весь был бы в чернилах.