Заменить все чётные элементы матрицы нулями

@Leschenko Mary · Регистрация: 20.12.2012

помогите решить...
Заменить все чётные элементы матрицы нулями

Kodzaev · 15.05.2013, 20:28

Pascal

Const
  n=3;
Var
  x: Array [1..n,1..n] of Integer;
  i,j: Byte;
BEGIN
Randomize;
Writeln('Исходная матрица:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(50);
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('Полученная матрица: ');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    If x[i,j] mod 2=0 Then
    x[i,j]:=0;
    Write(x[i,j]:4);
  end;
  Writeln
end;
Readln
END.

@Leschenko Mary · 15.05.2013, 20:35 **[ТС]**

а в делфи можно??

Kodzaev · 15.05.2013, 20:44

Ну так и в Делфи то же самое

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Const
  n=3;
Var
  x: Array [1..n,1..n] of Integer;
  i,j: Byte;
BEGIN
Randomize;
Writeln('Исходная матрица:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(50);
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('Полученная матрица: ');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    If x[i,j] mod 2=0 Then
    x[i,j]:=0;
    Write(x[i,j]:4);
  end;
  Writeln
end;
Readln
END.

@Leschenko Mary 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 25
		1
	Заменить все чётные элементы матрицы нулями 15.05.2013, 20:09. Показов 893. Ответов 3 Метки нет (Все метки) помогите решить... Заменить все чётные элементы матрицы нулями 0

@Leschenko Mary 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 25
	15.05.2013, 20:35 [ТС]	3
	а в делфи можно?? 0

Опции темы