Есть блок-схема,помогите составить программу

@фоте · Регистрация: 15.04.2012

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

Задача:
Дана матрица A[N,N].В каждой строке,где есть хотя бы один положительный элемент все элементы циклически сдвинуть на 1 вправо. Если таких строк нет, то вывести соответствующее сообщение.
Вот фото блок-схемы:

Есть блок-схема,помогите составить программу

Вот мой текст программы,но он не работает, наверно не так написал

Pascal

program abc;
var a:array[1..10,1..10] of integer;
i,j,p,n:integer;
l:boolean;
begin
 readln(n,n);
 for i:=1 to n do
 for j:=1 to n do
 begin
  writeln('Vvod mass');
  readln(a[i,j]);
  end;
 for i:=1 to n do
 for j:=1 to n do
  
  if a[i,j]>0 then
  l:=true;
 
  if l then
  begin
     p:=a[i,n];
     for j:=n downto -1 do
     a[i,j]:=a[i,j-1];
     a[i,1]:=p;
     
    else
 writeln('Net strok');
 writeln(a[i,j])
 end;
end.

@Владимир_ВМ · 26.04.2012, 01:53

Pascal

program abc;
var a:array[1..10,1..10] of integer;
i,j,p,n:integer;
l:boolean;
begin
 readln(n);
 writeln('Vvod mass');
 for i:=1 to n do
 for j:=1 to n do
 read(a[i,j]);
 l:=false;
 for i:=1 to n do
 begin
   for j:=1 to n do
     if a[i,j]>0 then
     begin
       p:=a[i,n];
       for j:=n downto 2 do
       a[i,j]:=a[i,j-1];
       a[i,1]:=p;
       l:=true;
       break;
     end;
     for j:=1 to n do write(a[i,j]:2);
     writeln;
 end;
 if not(l) then
 writeln('Net strok');
end.

	26.04.2012, 01:53