<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := MatrRandom(3, 3, -99, 99);
a.Println(4); Writeln(4 * a.ColCount * '-');
var s := 0;
for var i := 0 to 2 do s += a[i, i];
Println('Сумма элементов главной диагнонали:', s)
end.
<h2> 16 19 97</h2><h2> 11 -97 14</h2><h2> 24 40 -38</h2><h2>------------</h2><h2>Сумма элементов главной диагнонали: -119 </h2>
Самый простой из текстовых редакторов.
Есть у каждого компьютера.
Там можно делать только элементарные вещи.
Т. е. Допустим как в ворде нельзя добавлять фигуры и делать какой то интересный красивый дизайн и не вставить таблицу.
const d = 31;
var
a: array[1..d] of integer;
i, count, mdl: integer;
begin
for i := 1 to d do begin
a[i] := random(31);
write(a[i], ' ');
mdl := mdl + a[i];
end;
writeln;
writeln('Средняя температура: ', (mdl / d):0:2);
for i := 1 to d do
if(a[i] > mdl / d) then inc(count);
writeln('Дни, в которые температура была выше средней: ', count);
end.
Возможно , стоило пойти прямо и направо ,то есть два поворота в лево лишние