Решить (паскаль) дана матрица b(4,4) 1) найти произведение положительных элементов среди элеметов рассположенных выше побочной диагонали матрицы b. 2) найти минимальный элемент во втором столбце матрицы b. 3) поменять местами найденный минимальный эелемент и значение третьего элемента в четвертой строке.

220

441

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

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

BaLaWkA2004

Информатика

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

Uses crt; const n=4; var b: array[1..n,1..n] of integer; i,j,pr,k,t,min: integer; begin randomize; pr: =1; for i: =1 to n do for j: =1 to n do b[i,j]: =random(100)-50; for i: =1 to n do begin for j: =1 to n do write(b[i,j]: 3); writeln; end; writeln; k: =1; t: =3; repeat for i: =k to k do for j: =1 to t do if b[i,j]> 0 then pr: =b[i,j]*pr; inc(k); t: =t-1; until k=4; writeln(pr); min: =50; for i: =1 to n do for j: =2 to 2 do if b[i,j]< min then begin min: =b[i,j]; k: =i; t: =j; end; writeln(min); writeln; b[4,3]: =b[4,3]+b[k,t]; b[k,t]: =b[4,3]-b[k,t]; b[4,3]: =b[4,3]-b[k,t]; for i: =1 to n do begin for j: =1 to n do write(b[i,j]: 3); writeln; end; writeln; end.

Роман768

Информатика

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

Var n,i: integer; s,t: string; f: boolean; begin readln(s); n: =length(s); f: =false; for i: =2 to n do begin t: =t+s[i]; if s[i]=s[i-1] then f: =true; if (s[i]=' ') or (i=n) then begin if f then writeln(t); t: =''; f: =false; end end; end.