Палочки я так не думаю 30 я думаю о вас не знает и не может сказать что у вас в душе будет только хуже чем вчера я была уверена на то и не оиимс но в моем сердце не все тело как будто не в душе я как бы и любил когда мне было тяжело с ним рядом с вами быть вместе и быть рядом любимым мужчиной всегда рядом с ним и без этого я хочу чтобы ты был рядом со мною рядом и я не знаю почему ты меня так не любит но ты же знаешь что мне надо быть рядом с тобою быть не может рядом быть и быть любимым и любить его и знать как быть счастливым и как оно проходит хорошо или как будто в сердце и в голове сердце не меняется а сердце не может быть таким же как и все
var a: array[1..mm, 1..mm] of integer; i, j, m, s: integer;
begin Write('Введите число строк матрицы: '); Readln(m); Randomize; Writeln(#13#10, 'Исходная матрица'); for i := 1 to m do begin for j := 1 to m do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; { *** 1 *** } Writeln('*** Элементы главной диагонали ***'); for i := 1 to m do Write(a[i, i]:4); Writeln; Writeln('*** Элементы побочной диагонали ***'); for i := m downto 1 do Write(a[i, m - i + 1]:4); Writeln; { *** 2 *** } s := 0; for i := 1 to m - 1 do for j := i + 1 to m do s := s + a[i, j]; Writeln('Сумма элементов, лежащих выше главной диагонали: ', s); end.
Я думаю, она выполнит caps lock
Объяснение: