В двумерном массиве, состоящем из целочисленных элементов, поменять местами в каждой строке первый равный нулю и первый больший числа 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.04.14
1 ответ

Ответы

Буду рад помочь)

24.04.14

Александр

Сейчас на сайте
Читать ответы

Глеб Черняк

Читать ответы

Олег Николаевич

Читать ответы
Посмотреть всех экспертов из раздела Технологии
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store