Двумерный массив помогите плиз

@axilon · Регистрация: 04.09.2011

Студворк — интернет-сервис помощи студентам

Ввести двумерный массив ANxM . Каждую вторую строку в массиве
заменить остатками от деления её элементов на 2. Массив вывести до и после
преобразования.

Помогите плиз

@Dekio · 14.10.2011, 11:16

Pascal

program Dekio;
const
  n = 5;
  m = 15;
type
  TArr = array[1..n,1..m] of Integer;
var
  arr: TArr;
  i, j: Integer;
  
procedure AOut(arr: TArr);
var
  i, j: Integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
    write(arr[i,j]:4);
    writeln;
  end;
  writeln;
end;
  
begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  arr[i,j]:=random(3*m);
  AOut(arr);
  for i:=1 to n do
  if not odd(i) then
  for j:=1 to m do
  arr[i,j]:=arr[i,j] mod 2;
  AOut(arr);
end.

@axilon 0 / 0 / 0 Регистрация: 04.09.2011 Сообщений: 18
		1
	Двумерный массив помогите плиз 14.10.2011, 03:40. Показов 1283. Ответов 1 Метки нет (Все метки) Ввести двумерный массив ANxM . Каждую вторую строку в массиве заменить остатками от деления её элементов на 2. Массив вывести до и после преобразования. Помогите плиз 0

	14.10.2011, 11:16

Опции темы

Двумерный массив помогите плиз

Решение