Заполнить двумерный массив n x n случайными числами из интервала [-10 ; 10], выяснить что больше сумма элементов лежащих над главной диагональю или под главной диагональю.

{заполнить двумерный массив n x n случайными числами из интервала [-10 ; 10],  выяснить что больше сумма элементов лежащих над главной диагональю или  под главной диагональю.}const nmax = 20; var a: array[1..nmax,1..nmax] of integer; n,m,i,j,sumn,sumv: integer; beginwrite('введите число n'); readln(n); for i: =1 to n do beginfor j: =1 to n do beginm: = random(20)-10; a[i,j]: = m; write(a[i,j]: 4); end; writeln; end; writeln; writeln; for i: =1 to n do beginfor j: =1 to n do beginif i> j then begin write(a[i,j]: 4); sumn: = sumn + a[i,j]; end; end; writeln; end; writeln; writeln; for i: =1 to n do beginfor j: =1 to n do beginif i < j then begin write(a[i,j]: 4); sumv: = sumv + a[i,j]; end; end; writeln; end; if sumn > sumv then write('cумма элементов лежащих под главной диагональю больше')else write('cумма элементов лежащих над главной диагональю больше'); end.

1)  2, 5, 4, 7, 8, 9,  16,  11, 32

 

2           5

4           7

8           9

16         11

32

*2           +2

 

чётное порядковое число умножается на 2

 

 

 

 

нечётное порядковое число увеличивается на 2

 

 

 

 

2) 3, 8, 15,  24,  35, 48,  63, 80

 

3

3+5=8

8+7=15

15+9=24

24+11=35

35+13=48

48+15=63

63+17=80

 

(к предыдущему ответу прибавляется по порядку идущее нечётное число)

var x1,x2,x3,x4,x5: integer;

s: real;

begin

  read(x1,x2,x3,x4,x5);

  s: = (x1+x2+x3)/(x4+x5);

  if round(s)=s then writeln("celoe - "s);

end.