Количество последовательностей = 2^6 = 64
{Возможно это можно более просто организовать, однако программа работает :) }
Var a,b,ax,x: integer; flag: boolean;
Begin
Readln(a,b); ax:=a;
If (a>=0) and (b>=0) then flag:=true
else begin a:=abs(a); b:=abs(b); flag:=false; end;
If (a=0) or (b=0) then write('0')
else begin while b > 1 do
begin a:=a+ax; dec(b); end; x:=a;
if flag then write(x) else write(x-x*2); end;
End.
Const
n = 5;
var
a: array[1..n, 1..n] of integer;
i, j, sum: integer;
begin
Randomize;
Writeln('Исходный массив');
sum := 0;
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(100) + 1;
Write(a[i, j]:4);
sum := sum + a[i, j]
end;
Writeln
end;
Writeln('Сумма элементов равна ', sum)
end.
Пример выполнения
Исходный массив
78 95 84 80 19
9 98 18 71 52
33 42 27 79 17
91 54 85 50 52
62 98 53 86 59
Сумма элементов равна 1492
1849-1854г инженером Ш.бурселем
Integer - Pascal, Int - C#
Вообще любые целые числа это переменная Integer, независимо от того что она в положительном или отрицательном значении.