program delin;
const
nn = 100;// максимальный размер массива
var
i, j, n, t: integer;
a: array[1..nn] of integer;
begin
write('n = ');
read(n);
randomize;
for i := 1 to n do
begin
a[i] := random(38) - 9;
write(a[i], ' ');
end;
writeln;
for i := n - 1 downto 1 do
for j := 1 to i do
if a[j] > a[j + 1] then
begin
t := a[j];
a[j] := a[j + 1];
a[j + 1] := t;
end;
for i := 1 to n do
write(a[i], ' ');
end.
Исходим из того что N переменная целого типа
Ответ: 1+2+4=7
var a,a1,a2,sum,n,i:integer;
begin
readln (n);
for i:=1 to n do
begin
readln (a);
a1:=a div 10;
a2:=a mod 10;
if (a1=1) or (a2=1) then sum:=sum+a;
end;
writeln (sum);
end.
Может нужно писать в предпоследней строчке так:
.... z:0:3 ... -- вместо запятой должно стоять двоеточие
Просто не очень понятен вопрос....