Информатика . в паскале с подробным решением. переписать подряд в массив y положительные и в массив z отрицательные элементы массива x, состоящего из 6 элементов. x={-1, 1, 2, -2, -3, 3}. результат (массивы y и z) напечатать в виде двух параллельных столбцов.

272

366

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

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

ляляля06

Информатика

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

Const n=6; var x: array[1..n] of integer=(-1, 1, 2, -2, -3, 3); y,z: array[1..n] of integer; i,i1,i2: integer; begin for i: =1 to n do write(x[i]: 3); writeln; i1: =0; i2: =0; for i: =1 to n do if x[i]> 0 then begin i1: =i1+1; y[i1]: =x[i]; end else if x[i]< 0 then begin i2: =i2+1; z[i2]: =x[i]; end; writeln(' y: z: '); for i: =1 to n do if (i1> =i)and(i2> =i) then writeln(y[i]: 3,z[i]: 4) else if i1> =i then writeln(y[i]: 3) else if i2> =i then writeln(z[i]: 7); end. результат: -1 1 2 -2 -3 3 y: z: 1 -1 2 -2 3 -3

mulanmango

Информатика

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

Program gt; var a: array[1..100,1..100]of longint; k,m,i,n,j: longint; b: array[1..100,1..100]of real; begin read(n,m); for i: =1 to n do begin for j: =1 to m do begin read(a[i,j]); end; end; for j: =1 to m do begin k: =0; for i: =1 to n do begin if(a[i,j]> 0)then k: =k+1; end; for i: =1 to n do begin b[i,j]: =a[i,j]/k; end; end; for i: =1 to n do begin for j: =1 to m do begin write(b[i,j],' '); end; writeln; end; end.