1. Найти сумму всех не отрицательных чисел кратных 5 в промежутке от 1 до 100

2. Найти сумму элементов двумерного массива, расположенной на главной плоскости массив 10; 10

1) Program A1;

var

a, i:integer;

begin

a:=0;

for i:=1 to 100 do if (i mod 5=0) and (i>0) then a:=a+i;

writeln (a) ;

end.

2) Program A2;

var

a: array [1 ... 10,1 ... 10] of integer; b, i, j:integer;

begin

writeln ('Vvedi massiv') ;

for i:=1 to 10 do for j:=1 to 10 do readln (a[i, j]) ;

b:=0;

for i:=1 to 10 do b:=b+a[i, i];

writeln (b) ;

end.