Яким може бути діапазон номерів табличної величини? A) [О. 100]; В) [0,5..100]; Г)-7..100]. Б) [1..100];

145

205

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

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

Dyhanexis

Информатика

4,6(57 оценок)

//pascal abc.net 3.1 сборка 1256 //без ввода размерности const n=3; var ma1,ma2,mar: array[1..n,1..n] of integer; i,j,z: integer; begin randomize; writeln('matrix 1: '); for i: =1 to n do begin for j: =1 to n do begin ma1[i,j]: =random(10); write(ma1[i,j]: 4); end; writeln; end; writeln('matrix 2: '); for i: =1 to n do begin for j: =1 to n do begin ma2[i,j]: =random(10); write(ma2[i,j]: 4); end; writeln; end; writeln('final matrix: '); for i: =1 to n do begin for j: =1 to n do begin for z: =1 to n do mar[i,j]: =mar[i,j]+ma2[z,j]*ma1[i,z]; write(mar[i,j]: 4); end; writeln; end; end. //c вводом размерности var ma1,ma2,mar: array[,] of integer; i,j,z,n: integer; begin randomize; readln(n); setlength(ma1,n,n); setlength(ma2,n,n); setlength(mar,n,n); writeln('matrix 1: '); for i: =0 to n-1 do begin for j: =0 to n-1 do begin ma1[i,j]: =random(10); write(ma1[i,j]: 4); end; writeln; end; writeln('matrix 2: '); for i: =0 to n-1 do begin for j: =0 to n-1 do begin ma2[i,j]: =random(10); write(ma2[i,j]: 4); end; writeln; end; writeln('final matrix: '); for i: =0 to n-1 do begin for j: =0 to n-1 do begin for z: =0 to n-1 do mar[i,j]: =mar[i,j]+ma2[z,j]*ma1[i,z]; write(mar[i,j]: 4); end; writeln; end; end.