В двумерном массиве, состоящем из целочисленных элементов, поменять местами в каждой строке первый равный нулю и первый больший числа K элементы массива, где K - количество четных элементов массива - вопрос №1036753

начало программы

const n=10; m=7;

type mas=array [1..n,1..m] of Integer;

procedure Vvodmas(var D:mas);

  var i,j:Integer;

begin

for i:=1  to n do

  for j:=1  to m do

    D[i,j]:=-50+Random(101);

end;

procedure Vivodmas(D:mas);

  var i,j:Integer;

begin

  for i:=1 to n do

    begin

      for j:=1  to m do Write(D[i,j]:4);

      Writeln;

    end;

end;

апрель 24, 2014 г.