В данном массиве находится 4 элемента
1)2
2)-2
3)-2
4)2
Пароль, число, шифр, номер, количество чего-либо.
program raf105;
const a=3;
var S,P:integer;
begin
S:= a*a;
P:= a*4;
writeln('Площадь: ',S);
writeln('Периметр: ',P);
end.
<u><em>Язык PascalABC</em></u>
Const n=10 ; m=10;<span>
var A: array [1..n,1..m] of integer;
s, i, j: integer;
begin
randomize;
for i:= 1 to n do
begin
</span>for j:= 1 to m do<span>
begin
A[i,j]:= -100 + random (100);
write (A[i,j]: 5);
end;
writeln;
end;
</span>for i:= 1 to n do
begin
s:=0;
for j:= 1 to m do <span>
if A[i,j] < 0 then s:=s+A[i,j];
</span><span> writeln('s ',i,' столбца=' , s);
end;
end.</span>
Var
n, s: integer;
begin
readln(n);
n := abs(n);
while n > 0 do
begin
s := s + n mod 10;
n := n div 10;
end;
writeln(s);
end.