Задача Pascal

[Fantalia]

1. В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму элементов массива, расположенных после последнего нулевого элемента.




2. Дана целочисленная прямоугольная матрица. Определить сумму элементов в тех строках, которые не содержат отрицательных элементов.

[Dvoishnik]

2

const n=10
var mas:array of [1..n,1..n] integer;
     I,J:Byte;
     sum:integer;
     flag:boolean;  
begin
..............
for i:=1 to n do
Begin
 sum:=0;
 for j:=1 to n do
 begin
  sum:=sum+mas[i,j];
  flag:=mas[i,j]<0;
  if flag then break;
 end; 
if not flag then writeln(sum) ; 
end;
end.

[ZX Spectrum-128]

1.

// нашли последний 0
k:=0;
for i:=n downto 1 do
 if a[i]=0 then
  begin
   k:=i;
   break;
  end;
// считаем сумму
sum:=0;
for i:=k to n do
 sum:=sum+a[i];