В каждой строке матрицы заменить последний отрицательный элемент нулем

@Nck · Регистрация: 01.11.2012

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

В каждой строке матрицы заменить последний отрицательный элемент нулем.
Вот начало программы

Pascal

uses crt;
var
  a: array[0..255, 0..255] of integer;
  n, j, i: integer;
begin
writeln('vvedite masiv');
 read(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(11)-5;
      write(' ',a[i,j]);
    end;
    writeln;
  end;
  end.

@NurlashKO · 20.01.2013, 12:07

Pascal

uses crt;
var
  a: array[0..255, 0..255] of integer;
  n, j, i: integer;
begin
writeln('vvedite masiv');
 read(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(11)-5;
      write(' ',a[i,j]);
    end;
    writeln;
  end;
 
  for i := 1 to n do
    for j := n downto 1 do
        if (a[i][j] < 0) then begin
            a[i][j] := 0;
            break;
        end;
  writeln();
  for i := 1 to n do begin
    for j := 1 to n do 
        write(a[i][j], ' ');
    writeln;
  end;
 
end.

	20.01.2013, 12:07

Опции темы