Решить : дана квадратная матрица с порядка n. элементы главной и побочной диагоналей поместить в массиве т

212

222

Посмотреть ответы 2

Ответы на вопрос:

alinamalinavkjkjh

Информатика

4,4(16 оценок)

// pascalabc.net 3.3, сборка 1542 от 05.10.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('количество строк/столбцов в матрице: '); writeln('*** исходная матрица [',n,',',n,'] ***'); var c: =matrrandom(n,n,-99,99); c.println(4); writeln(4*c.colcount*'-'); var t: =new real[2*n]; var j: =0; for var i: =0 to n-1 do begin t[j]: =c[i,i]; t[j+n]: =c[i,n-i-1]; j+=1 end; t.println end. пример количество строк/столбцов в матрице: 7 *** исходная матрица [7,7] *** -61 73 25 31 91 -61 -13 -9 -51 -98 57 -46 -16 -39 -14 68 -77 16 74 17 86 9 -29 -2 -17 -30 23 84 71 15 22 -58 -46 42 -96 -29 -38 30 -51 70 -67 -15 8 -96 -22 85 41 -71 -57 -61 -51 -77 -17 -46 -67 -57 -13 -16 74 -17 22 -38 8

Mary240106

Информатика

4,4(14 оценок)

1) program chik; var a: array[1..100]of integer; i,s: integer; begin for i: =1 to 11 do begin read(a[i]); end; s: =0; for i: =1 to 11 do begin if(a[i] mod 5=0)then s: =s+a[i]; end; write(s); end. 2) program chik2; var a: array[1..100]of integer; i,s: integer; begin s: =0; for i: =1 to 11 do begin read(a[i]); end; s: =0; for i: =1 to 11 do begin if(a[i] mod 2=1)then s: =s+1]; end; write(s); end. 3) program chik3; var a: array[1..1000]of integer; i: integer; begin for i: =1 to 9 do begin read(a[i]); end; for i: =1 to 9 do begin if(a[i] mod 2=0)then write(a[i],' '); end; end.