1)даны квадратная матрицы а размером 3х3 и число t. требуется найти с=t*а. 2)дана вещественная матрица а(n,m). составить программу нахождения максимального отрицательного элемента матрицы и нахождения его местоположения.

267

434

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

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

mlpnko2

Информатика

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

1)var ma: array[1..3,1..3] of integer; i,j,t: integer; begin; randomize; readln(t); writeln('matrix: '); for i: =1 to 3 do begin; writeln; for j: =1 to 3 do begin; ma[i,j]: =random(10); write(ma[i,j]: 4); ma[i,j]: =ma[i,j]*t; end; end; writeln; writeln('final matrix: '); for i: =1 to 3 do begin; writeln; for j: =1 to 3 do write(ma[i,j]: 4); end; end.2)var ma: array of array of real; i,j,n,m,maxj,maxi: integer; max: real; begin; readln(n); readln(m); setlength(ma,n+1); for i: =1 to n do setlength(ma[i],m+1); max: =-2147483648; writeln('matrix: '); for i: =1 to n do begin; writeln; for j: =1 to m do begin; ma[i,j]: =random(100)-50; write(ma[i,j]: 4); if (ma[i,j]< 0) and (ma[i,j]> max) then begin; max: =ma[i,j]; maxi: =i; maxj: =j; end; end; end; writeln; writeln('max: ',max); writeln('строка: ',maxi); write('столбец: ',maxj); end.

viktoriy39

Информатика

4,7(92 оценок)

//for uses crt; var k, i: integer; begin k : = 1; for i : = 6 to 11 do k = k × i; writeln(k); end. //while uses crt; var k, i: integer; begin k : = 1; i : = 6; while i < > 11 + 1 do begin k = k × i; inc(i) end; writeln(k); end.