Var
a, b : array [1..1000] of integer;
n, m, i : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
m := 0;
for i := 1 to n do
if a[i] = 0 then
begin
m := m + 1;
b[m] := i;
end;
for i := 1 to m do write (b[i], ' ');
end. <span>
</span>
Var s,st: string;
<span> i,k: integer;
</span><span>begin
</span><span> st:='abcdefghqijklmnoprstuvwxyz';
</span><span> write('строка: '); readln(s);
</span><span> k:=0;
</span><span> for i:=1 to length(s) do
</span><span> if pos(s[i],st)>0 then k:=k+1;
</span><span> writeln(k);
</span><span>end.
</span>строка: Это lat строка.
<span>3
</span>
3,6e+8
0,03038
0,00685
5,625
5,431004875
С какими списками? Я не знаю по какому учебнику вы учитесь)