Что определяет для массива X[1..n, 1..m] следующий алгоритм:
S:= 0;
For i:= 1 to n do
For j:= 1 to m do
If X[i, j ] <0 then S:=S+X[i, j ];

а минимальный элемент массива;
б количество отрицательных элементов массива;
в максимальный элемент массива;
г сумму отрицательных элементов массива;
д индекс последнего отрицательного элемента массива

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.

сочинение о мини ноутбуках,                                                   : однажди родители подарили мне нетбук я так радовался(лас,) я кажды день сидел за ним и он мне ноавился. но однажды я пролил на него воду я думал всё   больше не будет у меня нетбука ,я растроился. мама сказала какой ты не уклюжий и так далее 

* 60 / 16 =

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.